1! { dg-do compile } 2! { dg-options "-std=f2003" } 3! 4! PR fortran/40728 5! 6 7! bogus error 8SUBROUTINE s1 9 IMPLICIT NONE 10 real(4), volatile :: r4 11 12 r4 = 0.0_4 13 r4 = asinh(r4) ! { dg-error "has no IMPLICIT type" } 14END SUBROUTINE 15 16 17 18! ICE on invalid (ATANH is defined by F2008 only) 19SUBROUTINE s2 20 IMPLICIT NONE 21 real :: r 22 r = 0.4 23 print *, atanh(r) ! { dg-error "has no IMPLICIT type" } 24END SUBROUTINE 25