Internal compiler error

The following code will cause an internal compiler error. When running an external MAKE, it will give an error callback, but no indication of the line causing the problem. PLATO will show line 4 as the error line.

    integer i
	i = 1
    SELECT CASE(I)
      CASE(1::3)
        STOP
      CASE DEFAULT
      	STOP
    END SELECT
    STOP
    end

Thank you for the bug report.

This has now been fixed so that FTN95 will report an unexpected colon on line 4.