blob: b074b8024ca82b38957e1ed57cb3fd94a3fb35b8 [file] [log] [blame]
! { dg-do compile }
! PR fortran/56520
!
program misleading
implicit none
real a, c
a = 1.0
c = exp(+a) ) ! { dg-error "Unclassifiable statement" }
c = exp(-a) ) ! { dg-error "Unclassifiable statement" }
c = exp((a)) ) ! { dg-error "Unclassifiable statement" }
c = exp(a) ) ! { dg-error "Unclassifiable statement" }
c = exp(a)
end program misleading