fork download
copy 
  1. PROGRAM ex4_4
  2.  
  3.   IMPLICIT NONE
  4.   INTEGER:: year, days
  5.  
  6.   PRINT *, 'Input a year:'
  7.   READ *, year
  8.  
  9.   days = 365 * year + year / 4 - year / 100 + year / 400
  10.  
  11.   IF ( MOD( days, 7 ) == 4 ) THEN
  12.   PRINT *, year, '年12月31日は，１年１月１日から数えて', &
  13.            days, '日目であり金曜日です'
  14.  
  15.  
  16. END PROGRAM ex4_4
Compilation error #stdin compilation error #stdout 0s 5600KB
comments (?)
stdin
copy 
2021
compilation info 
prog.f95:16:3:

 END PROGRAM ex4_4
   1
Error: Expecting END IF statement at (1)
f951: Error: Unexpected end of file in ‘prog.f95’
stdout
copy 
Standard output is empty
https://ideone.com/B3pF5X
language:
Fortran (gfortran 8.3)
created:
2 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!