fork download

copy

PROGRAM Time8.8.2.1
IMPLICIT NONE
REAL :: Light_Minute, Distance, Elapse
INTERGER :: Minute, Second
 
! Light_Year : Distance travelled by light
! in on year in km
! Light_Minute : Distance travelled by light
! in one minute in km
! Distance : Distance from sun to earth in km
! Elapse : Time taken to travel a
! distance (Distance) in minutes
! Minute : Interger number part of elapse
! Second : Interger number of seconds
! equlivalent to fractional part of elapse
!
	Light_Minute = (365.25*24.0*60.0)
	Distance = 35870.0
	Elapse = Distance / Light_Minute
	Minute = Elapse
	Second =( Elapse - Minute)*60
	Print*, ' It takes ' , Minute, 'Minutes'
	Print*, '             ' , Second, 'Seconds'
	Print*, ' For telephone call to reach a satellite'
END PROGRAM Time8.8.2.1

prog.f95:1.7:

PROGRAM Time8.8.2.1
       1
Error: Invalid form of PROGRAM statement at (1)
prog.f95:4:

INTERGER :: Minute, Second
1
Error: Unclassifiable statement at (1)
prog.f95:17.1:

 Light_Minute = (365.25*24.0*60.0)
 1
Warning: Nonconforming tab character at (1)
prog.f95:18.1:

 Distance = 35870.0
 1
Warning: Nonconforming tab character at (1)
prog.f95:19.1:

 Elapse = Distance / Light_Minute
 1
Warning: Nonconforming tab character at (1)
prog.f95:20.1:

 Minute = Elapse
 1
Warning: Nonconforming tab character at (1)
prog.f95:21.1:

 Second =( Elapse - Minute)*60
 1
Warning: Nonconforming tab character at (1)
prog.f95:22.1:

 Print*, ' It takes ' , Minute, 'Minutes'
 1
Warning: Nonconforming tab character at (1)
prog.f95:23.1:

 Print*, '             ' , Second, 'Seconds'
 1
Warning: Nonconforming tab character at (1)
prog.f95:24.1:

 Print*, ' For telephone call to reach a satellite'
 1
Warning: Nonconforming tab character at (1)
prog.f95:25.17:

END PROGRAM Time8.8.2.1
                 1
Error: Syntax error in END PROGRAM statement at (1)
Error: Unexpected end of file in 'prog.f95'

Standard output is empty