Greetings,
Please consider the following code which generates a runtime error in IFX 2023.0.0 but not in Classic. Can this be fixed for the next point release?
! Compiles and runs with with Classic:
! Intel(R) Fortran Intel(R) 64 Compiler Classic for applications running on
! Intel(R) 64, Version 2021.8.0 Build 20221119_000000
!
! Compiles but generates run time errors with IFX:
! Intel(R) Fortran Compiler for applications running on Intel(R) 64, Version
! 2023.0.0 Build 20221201
! forrtl: severe (153): allocatable array or pointer is not allocated
!***********************************************************************
module mymod_m
implicit none
type mytype
character(:), allocatable :: links
end type mytype
type(mytype), target :: sd
contains
!*******************************************************************************
subroutine update(fdir)
character(len=*), intent(in) :: fdir
print *, "fdir in update: "//trim(fdir)
sd%links = fdir
end subroutine update
!*******************************************************************************
function fixdir() result(fdir)
character(:), allocatable :: fdir
fdir = 'stuff'
call update(fdir)
print *, "fdir in fixdir: ", fdir
end function fixdir
end module mymod_m
!*******************************************************************************
program allocate_error
use mymod_m
implicit none
sd%links = fixdir()
end program allocate_error
Thanks,
Dave
