blob: df614bb638a0e46c8a8976d3e2737b77c1291cee [file] [log] [blame]
! { dg-do compile }
! { dg-options "-Wall" }
!
! PR fortran/54199
!
subroutine test()
contains
real function fraction(x) ! { dg-warning "'fraction' declared at .1. may shadow the intrinsic of the same name. In order to call the intrinsic, explicit INTRINSIC declarations may be required." }
real :: x
fraction = x
end function fraction
end subroutine test