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

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