| ! PR14005 | |
| ! The GMP conversion routines object to a leading "+" | |
| program plusconst_1 | |
| implicit none | |
| real p | |
| integer i | |
| data p /+3.1415/ | |
| data i /+42/ | |
| real :: q = +1.234 | |
| integer :: j = +100 | |
| if ((p .ne. 3.1415) .or. (i .ne. 42) .or. (q .ne. 1.234) .or. (j .ne. 100)) & | |
| STOP 1 | |
| end program | |