fork download

copy

Program Ch08_03
!
! This program prints the multiplication table
!
implicit none
Integer :: index = ' ', times
print *, "What times  table do you want: '
read *, index
print *, "Times table: '
Do times = 1, index
Print *, times, '*12=', times * index
  Endo
    End program Ch08_03
 

prog.f95:6.18:

Integer :: index = ' ', times
                  1
Error: Can't convert CHARACTER(1) to INTEGER(4) at (1)
prog.f95:7.9:

print *, "What times  table do you want: '
         1
Error: Unterminated character constant beginning at (1)
prog.f95:9.9:

print *, "Times table: '
         1
Error: Unterminated character constant beginning at (1)
prog.f95:12.5:

  Endo
     1
Error: Expecting END DO statement at (1)
prog.f95:13.7:

    End program Ch08_03
       1
Error: Expecting END DO statement at (1)
Error: Unexpected end of file in 'prog.f95'

Standard output is empty