gcc/testsuite/g77.f-torture/compile/8485.f

   1 C      Extracted from PR fortran/8485
   2        PARAMETER (PPMULT = 1.0E5)
   3        INTEGER*8 NWRONG
   4        PARAMETER (NWRONG = 8)
   5        PARAMETER (DDMULT = PPMULT * NWRONG)
   6        PRINT 10, DDMULT
   7 10     FORMAT (F10.3)
   8        END