gcc/testsuite/gfortran.dg/g77/8485.f


1
2
3
4
5
6
7
8
9

c { dg-do compile }
C      Extracted from PR fortran/8485
       PARAMETER (PPMULT = 1.0E5)
       INTEGER(kind=8) NWRONG
       PARAMETER (NWRONG = 8)
       PARAMETER (DDMULT = PPMULT * NWRONG)
       PRINT 10, DDMULT
10     FORMAT (F10.3)
       END