gcc/testsuite/gfortran.dg/intrinsic_shadow_3.f03

   1 ! { dg-do compile }
   2 ! { dg-options "-Wno-intrinsic-shadow -fall-intrinsics" }
   3
   4 ! PR fortran/33141
   5 ! Check that the "intrinsic shadow" warnings are not emitted if the warning
   6 ! is negated.
   7
   8 MODULE testmod
   9   IMPLICIT NONE
  10
  11 CONTAINS
  12
  13   REAL FUNCTION asin (arg) ! { dg-bogus "shadow the intrinsic" }
  14     IMPLICIT NONE
  15     REAL :: arg
  16   END FUNCTION asin
  17
  18 END MODULE testmod
  19
  20 REAL FUNCTION acos (arg) ! { dg-bogus "of an intrinsic" }
  21   IMPLICIT NONE
  22   REAL :: arg
  23 END FUNCTION acos
  24
  25 ! We do only compile, so no main program needed.
  26
  27 ! { dg-final { cleanup-modules "testmod" } }