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