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 8IMPLICIT CHARACTER (s) 9REAL :: RDA 10 11RDA = S_REAL_SQRT_I(42) ! { dg-bogus "Can't convert" } 12 13CONTAINS 14 15REAL FUNCTION S_REAL_SQRT_I(I) RESULT (R) 16 IMPLICIT NONE 17 INTEGER :: I 18 R = 0.0 19END FUNCTION S_REAL_SQRT_I 20 21END 22