gcc/testsuite/gfortran.dg/pr56520.f90

   1 ! { dg-do compile }
   2 ! PR fortran/56520
   3 !
   4 program misleading
   5     implicit none
   6     real a, c
   7     a = 1.0
   8     c = exp(+a) )    ! { dg-error "Unclassifiable statement" }
   9     c = exp(-a) )    ! { dg-error "Unclassifiable statement" }
  10     c = exp((a)) )   ! { dg-error "Unclassifiable statement" }
  11     c = exp(a) )     ! { dg-error "Unclassifiable statement" }
  12     c = exp(a)
  13 end program misleading