1! PR14005 2! The GMP conversion routines object to a leading "+" 3program 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 14end program 15 16