gcc/testsuite/gfortran.dg/intrinsic_std_2.f90

   1 ! { dg-do link }
   2 ! { dg-options "-std=f95 -Wintrinsics-std -fall-intrinsics" }
   3
   4 ! PR fortran/33141
   5 ! Check that -fall-intrinsics makes all intrinsics available.
   6
   7 PROGRAM main
   8   IMPLICIT NONE
   9
  10   ! abort is a GNU extension
  11   CALL abort () ! { dg-bogus "extension" }
  12
  13   ! ASINH is an intrinsic of F2008
  14   WRITE (*,*) ASINH (1.) ! { dg-bogus "Fortran 2008" }
  15 END PROGRAM main