fork download

copy

Program_TableChart
IMPLICIT NONE
Integer::index=(1,12), times, number=(1,12)
    PRINT*, 'What times table do you want to produce?'
    READ*, Number 
	DO Number=1 index
    PRINT*, 'Number*12'= times, index
END Program_TableChart

prog.f95:1.7:

Program_TableChart
       1
Error: Invalid form of PROGRAM statement at (1)
prog.f95:6.1:

 DO Number=1 index
 1
Warning: Nonconforming tab character at (1)
prog.f95:6.12:

 DO Number=1 index
            1
Error: Syntax error in iterator at (1)
prog.f95:7.23:

    PRINT*, 'Number*12'= times, index
                       1
Error: Syntax error in PRINT statement at (1)
prog.f95:8.11:

END Program_TableChart
           1
Error: Expected terminating name at (1)
Error: Unexpected end of file in 'prog.f95'

Standard output is empty