12 Dec 2019 11:31
#24770
When the program below is compiled with /64 /xref, the XRF file contains a spurious line.
program main
implicit none
integer :: itrat, kount
!-----------------------------------------------
open(unit = 15, file = 'prg.data', status = 'old')
1 call input()
itrat = 3
kount = 1
2 call ephem()
3 call vmass()
itrat = 2
if (kount .lt. 0) then
call print()
go to 1
endif
if (itrat .eq. 1) go to 2
if (itrat .eq. 2) go to 3
call print()
end program main
The spurious line in the XRF file:
SUBROUTINE __save_rbp