From 3212c187a8b479ab1d58f1d2a7c9ae90aceebf7d Mon Sep 17 00:00:00 2001 From: "Steven G. Kargl" Date: Sun, 23 Aug 2009 04:58:31 +0000 Subject: proc_ptr_24.f90: New test. 2009-08-22 Steven G. Kargl * gfortran.dg/proc_ptr_24.f90: New test. 2009-08-22 Steven G. Kargl * fortran/decl.c: Disallow procedure pointers with -std=f95. From-SVN: r151026 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/decl.c | 4 ++++ 2 files changed, 8 insertions(+) (limited to 'gcc/fortran') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 4869fe8..d6d6a91 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2009-08-22 Steven G. Kargl + + * fortran/decl.c: Disallow procedure pointers with -std=f95. + 2009-08-22 Steven K. kargl * fortran/decl.c (match_char_spec): Rename to gfc_match_char_spec, diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c index 1533af5..40622e2 100644 --- a/gcc/fortran/decl.c +++ b/gcc/fortran/decl.c @@ -4449,6 +4449,10 @@ match_ppc_decl (void) return MATCH_ERROR; } + if (gfc_notify_std (GFC_STD_F2003, "Fortran 2003: Procedure pointer " + "component at %C") == FAILURE) + return MATCH_ERROR; + /* Match PPC names. */ ts = current_ts; for(num=1;;num++) -- cgit v1.1