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