Remove old autovect-branch by moving to "dead" directory.
[official-gcc.git] / old-autovect-branch / gcc / testsuite / gfortran.dg / g77 / 8485.f
blobae5f0345107cfa5a2ca72b56be8413ab637769ba
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