IMPLICIT CHARACTER*# causing 35 regressions in NIST testsuite

[Steve Kargl]

Gang,

I don't think we can get away with the following Error.   THese
NIST test suite files now fail to compile.

FM201.f FM202.f FM251.f FM254.f FM256.f FM306.f FM307.f FM317.f
FM328.f FM351.f FM352.f FM401.f FM411.f FM413.f FM520.f FM718.f
FM722.f FM308.f FM514.f FM203.f FM204.f FM205.f FM300.f FM301.f
FM302.f FM402.f FM500.f FM509.f FM700.f FM701.f FM710.f FM711.f
FM715.f FM311.f FM517.f

gfortran -c FM517.f
 In file FM517.f:28

           IMPLICIT CHARACTER*27 (C)                                    
                               1
Error: Old-style kind 27 not supported for type CHARACTER at (1)
*** Error code 1 (continuing)

Indeed, we get strange errors otherwise.

kargl[213] cat vf.f
       program vf
       implicit character*10 (a)
       abs = 'yes'
       print*, abs
       end

kargl[212] gfc -o vf vf.f
 In file vf.f:2

       implicit character*10 (a)
                           1
Error: Old-style kind 10 not supported for type CHARACTER at (1)
 In file vf.f:3

       abs = 'yes'
            1
Error: Can't convert CHARACTER(1) to REAL(4) at (1)

-- 
Steve