OSDN Git Service

2011-09-26 Janus Weil <janus@gcc.gnu.org>
[pf3gnuchains/gcc-fork.git] / 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