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 7PROGRAM 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" } 15END PROGRAM main 16