gcc/testsuite/gfortran.dg/intrinsic_std_3.f90

   1 ! { dg-do link }
   2 ! { dg-options "-std=gnu -Wintrinsics-std" }
   3
   4 ! PR fortran/33141
   5 ! -std=gnu should allow every intrinsic.
   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