28 lines
573 B
Fortran
28 lines
573 B
Fortran
! { dg-do compile }
|
|
! { dg-options "-Wno-intrinsic-shadow -fall-intrinsics" }
|
|
|
|
! PR fortran/33141
|
|
! Check that the "intrinsic shadow" warnings are not emitted if the warning
|
|
! is negated.
|
|
|
|
MODULE testmod
|
|
IMPLICIT NONE
|
|
|
|
CONTAINS
|
|
|
|
REAL FUNCTION asin (arg) ! { dg-bogus "shadow the intrinsic" }
|
|
IMPLICIT NONE
|
|
REAL :: arg
|
|
END FUNCTION asin
|
|
|
|
END MODULE testmod
|
|
|
|
REAL FUNCTION acos (arg) ! { dg-bogus "of an intrinsic" }
|
|
IMPLICIT NONE
|
|
REAL :: arg
|
|
END FUNCTION acos
|
|
|
|
! We do only compile, so no main program needed.
|
|
|
|
! { dg-final { cleanup-modules "testmod" } }
|