------- 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