8485.f   [plain text]

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