[Bug fortran/84313] [F08] reject procedure pointers in COMMON blocks
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84313 --- Comment #4 from Jakub Jelinek --- Author: jakub Date: Wed Feb 14 12:12:15 2018 New Revision: 257654 URL: https://gcc.gnu.org/viewcvs?rev=257654&root=gcc&view=rev Log: PR fortran/84313 * testsuite/libgomp.fortran/threadprivate4.f90: Add -std=f2003 -fall-intrinsics into dg-additional-options. Modified: trunk/libgomp/ChangeLog trunk/libgomp/testsuite/libgomp.fortran/threadprivate4.f90
[Bug fortran/84313] [F08] reject procedure pointers in COMMON blocks
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84313 janus at gcc dot gnu.org changed: What|Removed |Added Status|ASSIGNED|RESOLVED Resolution|--- |FIXED Target Milestone|--- |8.0 --- Comment #3 from janus at gcc dot gnu.org --- Fixed with r257636. Closing.
[Bug fortran/84313] [F08] reject procedure pointers in COMMON blocks
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84313 --- Comment #2 from janus at gcc dot gnu.org --- Author: janus Date: Tue Feb 13 21:00:37 2018 New Revision: 257636 URL: https://gcc.gnu.org/viewcvs?rev=257636&root=gcc&view=rev Log: 2018-02-13 Janus Weil PR fortran/84313 * symbol.c (check_conflict): Reject procedure pointers in common blocks. 2018-02-13 Janus Weil PR fortran/84313 * gfortran.dg/proc_ptr_common_1.f90: Fix invalid test case, add necessary compiler options. * gfortran.dg/proc_ptr_common_2.f90: Add missing error message. Modified: trunk/gcc/fortran/ChangeLog trunk/gcc/fortran/symbol.c trunk/gcc/testsuite/ChangeLog trunk/gcc/testsuite/gfortran.dg/proc_ptr_common_1.f90 trunk/gcc/testsuite/gfortran.dg/proc_ptr_common_2.f90
[Bug fortran/84313] [F08] reject procedure pointers in COMMON blocks
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84313 janus at gcc dot gnu.org changed: What|Removed |Added Status|UNCONFIRMED |ASSIGNED Last reconfirmed||2018-02-12 Assignee|unassigned at gcc dot gnu.org |janus at gcc dot gnu.org Ever confirmed|0 |1 --- Comment #1 from janus at gcc dot gnu.org --- This should do it: Index: gcc/fortran/symbol.c === --- gcc/fortran/symbol.c(revision 257589) +++ gcc/fortran/symbol.c(working copy) @@ -809,7 +809,7 @@ check_conflict (symbol_attribute *attr, const char conf2 (threadprivate); } - if (!attr->proc_pointer) + if (!attr->proc_pointer || (gfc_option.allow_std & GFC_STD_F2008)) conf2 (in_common); conf2 (omp_declare_target_link);