1! { dg-do compile } 2! { dg-options "-Wall" } 3! 4! PR fortran/54199 5! 6subroutine test() 7contains 8 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." } 9 real :: x 10 fraction = x 11 end function fraction 12end subroutine test 13