17 lines
324 B
Forth
17 lines
324 B
Forth
program leap
|
|
implicit none
|
|
|
|
write(*,*) leap_year([1900, 1996, 1997, 2000])
|
|
|
|
contains
|
|
|
|
pure elemental function leap_year(y) result(is_leap)
|
|
implicit none
|
|
logical :: is_leap
|
|
integer,intent(in) :: y
|
|
|
|
is_leap = (mod(y,4)==0 .and. .not. mod(y,100)==0) .or. (mod(y,400)==0)
|
|
|
|
end function leap_year
|
|
|
|
end program leap
|