The following is invalid and detected as such, however, the error message needs
improvement
------------
PROGRAM Test_ceres
implicit none
real, dimension(10) :: TCg_coef
integer, parameter, dimension(1) :: &
TCg_bband_coef_ranks = X()
contains
function X()
integer, dimension(1) :: X
X = -4
end function X
end program Test_ceres
------------
gfortran:
Function 'x' at (1) has no IMPLICIT type
Which is very odd because X is defined. NAG f95 is better:
Reference to non-intrinsic function X in initialisation expression
If one removes "implicit none", gfortran correctly prints:
Function 'x' in initialization expression at (1) must be an intrinsic
function
--
Summary: Better message if using non-intrinsic initialization
expression
Product: gcc
Version: 4.3.0
Status: UNCONFIRMED
Keywords: diagnostic
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: burnus at gcc dot gnu dot org
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31592
