1! { dg-do compile } 2! { dg-options "-std=f2003 -Wintrinsic-shadow" } 3 4! PR fortran/33141 5! Check that the expected warnings are emitted if a user-procedure has the same 6! name as an intrinsic, but only if it is matched by the current -std=*. 7 8MODULE testmod 9 IMPLICIT NONE 10 11CONTAINS 12 13 ! ASIN is an intrinsic 14 REAL FUNCTION asin (arg) ! { dg-warning "shadow the intrinsic" } 15 IMPLICIT NONE 16 REAL :: arg 17 END FUNCTION asin 18 19 ! ASINH is one but not in F2003 20 REAL FUNCTION asinh (arg) ! { dg-bogus "shadow the intrinsic" } 21 IMPLICIT NONE 22 REAL :: arg 23 END FUNCTION asinh 24 25END MODULE testmod 26 27! ACOS is an intrinsic 28REAL FUNCTION acos (arg) ! { dg-warning "of an intrinsic" } 29 IMPLICIT NONE 30 REAL :: arg 31END FUNCTION acos 32 33! ACOSH not for F2003 34REAL FUNCTION acosh (arg) ! { dg-bogus "of an intrinsic" } 35 IMPLICIT NONE 36 REAL :: arg 37END FUNCTION acosh 38 39! A subroutine with the same name as an intrinsic subroutine 40SUBROUTINE random_number (arg) ! { dg-warning "of an intrinsic" } 41 IMPLICIT NONE 42 REAL, INTENT(OUT) :: arg 43END SUBROUTINE random_number 44 45! But a subroutine with the name of an intrinsic function is ok. 46SUBROUTINE atan (arg) ! { dg-bogus "of an intrinsic" } 47 IMPLICIT NONE 48 REAL :: arg 49END SUBROUTINE atan 50 51! As should be a function with the name of an intrinsic subroutine. 52REAL FUNCTION random_seed () ! { dg-bogus "of an intrinsic" } 53END FUNCTION random_seed 54 55! We do only compile, so no main program needed. 56