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