------- Comment #1 from burnus at gcc dot gnu dot org  2008-05-24 22:49 -------
Your program is invalid

 * * *

       INTERFACE
              FUNCTION F(X) RESULT (FUNCTION_VALUE)
              REAL(REAL_12), INTENT(IN) :: X

Use either:

a)  REAL(SELECTED_REAL_KIND(P=12)), INTENT(IN) :: X

b)  IMPORT :: REAL_12
    REAL(REAL_12) ...

c)  IMPORT
    REAL(REAL_12) ...

The IMPORT statement (b and c) is part of Fortran 2003.


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=36323

Reply via email to