Revision 94ada2f0f71b64cf2da475fcc4998e97218bc2c1 authored by Adiv Paradise on 03 November 2018, 22:59:09 UTC, committed by Adiv Paradise on 03 November 2018, 22:59:09 UTC
1 parent 48080b8
f90check.f90
program f90check
integer :: i = 258
real :: r = 1.0
open(21,file='F90_INTEGER',form='unformatted')
write (21) i
close(21)
open(21,file='F90_REAL',form='unformatted')
write (21) r
close(21)
!call csub(i,r)
stop
end program f90check
![swh spinner](/static/img/swh-spinner.gif)
Computing file changes ...