22 lines
378 B
Fortran
22 lines
378 B
Fortran
|
! { dg-do compile }
|
||
|
|
||
|
! PR fortran/35770
|
||
|
! Implicit declaration hides type of internal function.
|
||
|
|
||
|
! Contributed by Dick Hendrickson <dick.hendrickson@gmail.com>
|
||
|
|
||
|
IMPLICIT CHARACTER (s)
|
||
|
REAL :: RDA
|
||
|
|
||
|
RDA = S_REAL_SQRT_I(42) ! { dg-bogus "Can't convert" }
|
||
|
|
||
|
CONTAINS
|
||
|
|
||
|
REAL FUNCTION S_REAL_SQRT_I(I) RESULT (R)
|
||
|
IMPLICIT NONE
|
||
|
INTEGER :: I
|
||
|
R = 0.0
|
||
|
END FUNCTION S_REAL_SQRT_I
|
||
|
|
||
|
END
|