gcc/testsuite/gfortran.fortran-torture/execute/plusconst_1.f90

   1 ! PR14005
   2 ! The GMP conversion routines object to a leading "+"
   3 program plusconst_1
   4   implicit none
   5   real p
   6   integer i
   7   data p /+3.1415/
   8   data i /+42/
   9   real :: q = +1.234
  10   integer :: j = +100
  11
  12   if ((p .ne. 3.1415) .or. (i .ne. 42) .or. (q .ne. 1.234) .or. (j .ne. 100)) &
  13     call abort
  14 end program
  15