gcc/testsuite/gfortran.dg/dec_exp_3.f90

   1 ! { dg-do run "xfail *-*-*" }
   2 ! { dg-options "" }
   3 !
   4 ! Make sure we still see an error for missing exponents without -fdec.
   5 !
   6
   7 implicit none
   8
   9 real :: r
  10 character(2) :: s
  11 s = '8e'
  12
  13 read (s, *) r ! { XFAIL "Bad real number" }
  14
  15 end