This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/80668] New: wrong error message with -finit-derived
- From: "valeryweber at hotmail dot com" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: Mon, 08 May 2017 13:37:28 +0000
- Subject: [Bug fortran/80668] New: wrong error message with -finit-derived
- Auto-submitted: auto-generated
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=80668
Bug ID: 80668
Summary: wrong error message with -finit-derived
Product: gcc
Version: 8.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: valeryweber at hotmail dot com
Target Milestone: ---
Dear All
The following code is producing wrong error message with -finit-derived
thanks
v
MODULE pw_hfx
IMPLICIT NONE
TYPE :: dist_t
INTEGER :: TYPE,nblks_loc,nblks
INTEGER,DIMENSION(:),POINTER :: dist
END TYPE dist_t
CONTAINS
SUBROUTINE hfx_new()
TYPE(dist_t) :: dist
CALL release_dist(dist)
END SUBROUTINE hfx_new
SUBROUTINE release_dist(dist)
TYPE(dist_t) :: dist
END SUBROUTINE release_dist
END MODULE pw_hfx
gfortran-trunk -c -finit-derived -finit-integer=1234567890
-finit-logical=false -finit-real=snan pw_hfx.mod.F90
pw_hfx.mod.F90:5:41:
INTEGER,DIMENSION(:),POINTER :: dist
1
Error: The element in the structure constructor at (1), for pointer component
‘dist’ should be a POINTER or a TARGET
pw_hfx.mod.F90:5:41:
INTEGER,DIMENSION(:),POINTER :: dist
1
Error: Pointer initialization target at (1) must have the SAVE attribute