gcc/testsuite/gfortran.dg/dec_exp_2.f90


1
2
3
4
5
6
7
8
9
10
11
12
13

! { dg-do compile }
! { dg-options "" }
!
! Make sure we still see an error for missing exponents without -fdec.
!

implicit none

real, parameter :: r1 = 8e ! { dg-error "Missing exponent" }
real, volatile :: r2
r2 = 8e ! { dg-error "Missing exponent" }

end