aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/pr56520.f90
blob: 82bd7f9959a182e0444dfd6aa2366f78875a451a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
! { 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) )
    c = exp((a)) )
    c = exp(a) )
    c = exp(a)
end program misleading