Hi,
[***@***]: ifort --version
ifort (IFORT) 13.0.0 20120731
Copyright (C) 1985-2012 Intel Corporation. All rights reserved.
[***@***]: ifort -c problem.f90
problem.f90(1): catastrophic error: **Internal compiler error: internal abort** Please report this error along with the circumstances in which it occurred in a Software Problem Report. Note: File and line given may not be explicit cause of this error.
compilation aborted for problem.f90 (code 1)
The minimal example "problem.f90" is
module Nonlinear_Parameters
type NL_Parm
end type NL_Parm
end module Nonlinear_Parameters
module Newton
use Nonlinear_Parameters
implicit none
abstract interface
subroutine NL_func(ut)
use Nonlinear_Parameters
implicit none
class(NL_Parm) :: ut
end subroutine NL_func
end interface
contains
function f0(f, ut, ndim)
implicit none
integer, intent(in) :: ndim
real*8, dimension(ndim) :: f0
procedure(NL_func) :: f
class(NL_Parm), intent(in) :: ut
end function f0
function f1(f, ut)
implicit none
procedure(NL_func) :: f
class(NL_Parm), intent(in) :: ut
real*8 :: f1
end function f1
function f2(n)
implicit none
integer, intent(in) :: n
real*8 :: f2(n, n)
end function f2
end module Newton
When i change the order of functions f1 and f2 the error disappears.
Regards
Christoph
