16 lines
334 B
Fortran
16 lines
334 B
Fortran
! { 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
|