Put these 2 subroutines into separate files.
subroutine foo1 ! Compile with 32-bit marker
open(unit=1, file='messy', status='append', ....)
! Write a bunch of stuff
close(1)
end subroutine foo1
subroutine foo2 ! Compile with 64-bit marker
open(unit=1, file='messy', status='append', ....)
! Write a bunch of stuff
close(1)
end subroutine foo2
What happens when foo2 tries to write to 'messy' after foo1
has already done so? Do we reread the entire file and convert
to 64-bit markers? Do we issue a runtime error and abort?
Do we mingle the 32-bit and 64-bit markers in the same file?