| ! { dg-do link } | |
| ! { dg-options "-std=gnu -Wintrinsics-std" } | |
| ! PR fortran/33141 | |
| ! -std=gnu should allow every intrinsic. | |
| PROGRAM main | |
| IMPLICIT NONE | |
| ! abort is a GNU extension | |
| CALL abort () ! { dg-bogus "extension" } | |
| ! ASINH is an intrinsic of F2008 | |
| WRITE (*,*) ASINH (1.) ! { dg-bogus "Fortran 2008" } | |
| END PROGRAM main |