I found that "assigned goto" statements cause a crash on X86 (see below). No problems on AXP/IA64)
Code: Select all
rumba-jj) f90/ver
VSI Fortran X8.5-0004 (GEM 50X6F) for X86 systems
rumba-jj) ty test.f90
program test
integer next
real x
!
read(*,*) x
if (x > 0.0 ) then
assign 30 to next
else
assign 50 to next
endif
!
write(*,*) 'crash on next line'
goto next,(30, 50)
!
30 write(*,*) '30'
stop 'end'
50 write(*,*) '50'
!
end
12-JUL-2023 15:53:47
rumba-jj) f90 test.f90
rumba-jj) link test
rumba-jj) run test
1.0
crash on next line
%SYSTEM-F-ACCVIO, access violation, reason mask=15, virtual address=FFFFFFFF8000
0135, PC=000000007A881908, PS=0000001B
Improperly handled condition, image exit forced by last chance handler.
Signal arguments: Number = 0000000000000005
Name = 000000000000000C
0000000000000015
FFFFFFFF80000135
000000007A881908
000000000000001B
Register dump:
RAX = 0000000000000000 RDI = 000000007A881920 RSI = FFFFFFFF80000135
RDX = 0000000000002004 RCX = 000000007A8818B0 R8 = 000000008259B300
R9 = 000000007FF8BE18 RBX = 000000007A881F00 RBP = 000000007A881950
R10 = 00000000000091E8 R11 = FFFFFFFFFFFFFFF5 R12 = 000000007A8819A8
R13 = 0000000000000000 R14 = 0000000000000003 R15 = 0000000579D34606
RIP = 000000007A881908 RSP = 000000007A8818B0 SS = 000000000000001B
regards
Jouk