REAL*10 Not Supported

Symptom

The following error is reported during compilation:

bnrydds.f:50:15:
 
   50 |         real*10 frb, tt0, tt, orbits
      |               1
Error: Old-style type declaration REAL*10 not supported at (1)
make[1]: *** [Makefile:477: bnrydds.o] Error 1
make[1]: Leaving directory '/Oceanfile/wubingcheng/tempo2/tempo-13.103/src'
make: *** [Makefile:358: all-recursive] Error 1

Cause

The FPU registers of an x86 server include eight 80-bit data registers and three 16-bit registers. On an x86 server, GFortran supports the REAL*10 type. On a Kunpeng server, GFortran does not support the REAL data length. As a result, a compilation error is reported.

For details, see:

https://stackoverflow.com/questions/43810421/error-old-style-type-declaration-real16-not-supported

Procedure

Change the REAL*10 type to REAL*8.

A warning but not an error is reported during BiSheng Flang compilation. REAL*10 is processed in the same way as REAL*4.