gcc/testsuite/gfortran.dg/implicit_13.f90

   1 ! { dg-do compile }
   2
   3 ! PR fortran/35770
   4 ! Implicit declaration hides type of internal function.
   5
   6 ! Contributed by Dick Hendrickson <dick.hendrickson@gmail.com>
   7
   8 IMPLICIT CHARACTER (s)
   9 REAL :: RDA
  10
  11 RDA = S_REAL_SQRT_I(42) ! { dg-bogus "Can't convert" }
  12
  13 CONTAINS
  14
  15 REAL FUNCTION S_REAL_SQRT_I(I) RESULT (R)
  16   IMPLICIT NONE
  17   INTEGER :: I
  18   R = 0.0
  19 END FUNCTION S_REAL_SQRT_I
  20
  21 END