gcc/testsuite/gfortran.dg/intrinsic_shadow_4.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-Wall" }
   3 !
   4 ! PR fortran/54199
   5 !
   6 subroutine test()
   7 contains
   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
  12 end subroutine test