20 lines
580 B
Fortran
20 lines
580 B
Fortran
! Copy stdin to stdout
|
|
! tested with Intel ifx (IFX) 2025.2.1 20250806 on Kubuntu 25.10
|
|
!
|
|
! can also be compiled with gfortran but fails at run-time because it cannot change the access parameter
|
|
! -------------------------------------------------------------------------------------------------------
|
|
!
|
|
program cp
|
|
character :: c
|
|
integer:: ios
|
|
|
|
open (unit=5, form='unformatted', access='stream', action ='read')
|
|
open (unit=6, form='unformatted', access='stream', action ='write')
|
|
|
|
do
|
|
read (5, iostat=ios) c
|
|
if (ios .ne. 0) exit
|
|
write (6) c
|
|
end do
|
|
|
|
end program cp
|