blob: df614bb638a0e46c8a8976d3e2737b77c1291cee (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
! { 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
|