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