21 Oct 2022 5:11
#29477
Paul,
The following program will not run using Ver 8.91.1 with the CONTAINS code, but will if CONTAINS is removed, all runs.
I am compiling with : ftn95 identify.f90 /64 /lgo
With CONTAINS, compiler_version and compilet_options are not found in CLEARWIN64.DLL or SALFLIBC64.dll ?
! compilation: ftn95 identify.f90 /64 /lgo
!
use iso_fortran_env
integer*4, parameter :: million = 1000000
real*4, dimension(:,:), allocatable :: Arr4
integer*4 :: nA, nB, ierr, i, pass
real*4 :: SpeedGBps, t0, t1, dt
write (*,*) 'Compiler Version :',compiler_version ()
write (*,*) 'Compiler Options :',compiler_options ()
Contains
real*4 function delta_sec ()
integer*8 :: tick, rate, last=0
call system_clock ( tick, rate)
delta_sec = dble (tick-last) / dble (rate)
last = tick
end function delta_sec
End
error message is
Silverfrost 64-bit exception report on C:\temp\forum\stream_io\lgotemp@.exe Fri Oct 21 16:09:20 2022
Access violation (c0000005) at address 7ffb1b44de73
Within file CLEARWIN64.DLL
In _winop_fun at address DA03
In _winio at address 8AB
In _system_exception_handler(<ptr>structÄ_EXCEPTION_POINTERS) at address D65
Within file SALFLIBC64.DLL
in __system_exception_handler(<ptr>structÄ_EXCEPTION_POINTERS) at address d65
Within file ntdll.dll
In RtlRaiseException at address 256
In KiUserExceptionDispatcher at address 2E
In _MissingRoutine at address 2B
Within file SALFLIBC64.DLL
in __MissingRoutine at address 2b
Within file lgotemp@.exe
in MAIN@ at address 91
RAX = 0000000000000000 RBX = ffffffffffffffff RCX = ffffffffffffffff RDX = 00000000023ffd70
RBP = 00000000023ff270 RSI = 0000000000000000 RDI = 0000000000000000 RSP = 00000000023ff150
R8 = 00007ffb1b3b0000 R9 = 0000000000000000 R10 = 0000000000000001 R11 = 00000000023ffcf8
R12 = 00000000023ffd70 R13 = ffffffffffffffff R14 = ffffffffffffffff R15 = 0000000000000000
7ffb1b44de73) repne_scas_b