OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

proc_ptr_24.f90: New test. 

2009-08-22  Steven G. Kargl  <kargl@gcc.gnu.org>

	* gfortran.dg/proc_ptr_24.f90: New test.

2009-08-22  Steven G. Kargl  <kargl@gcc.gnu.org>

	* fortran/decl.c: Disallow procedure pointers with -std=f95.

From-SVN: r151026
This commit is contained in:
Steven G. Kargl 2009-08-23 04:58:31 +00:00
parent 0aa580f4d2
commit 3212c187a8
4 changed files with 33 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/fortran/ChangeLog
View File

@ -1,3 +1,7 @@
2009-08-22 Steven G. Kargl <kargl@gcc.gnu.org>
* fortran/decl.c: Disallow procedure pointers with -std=f95.
2009-08-22 Steven K. kargl <kargl@gcc.gnu.org>
* fortran/decl.c (match_char_spec): Rename to gfc_match_char_spec,

4
gcc/fortran/decl.c
View File

@ -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++)

4
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,7 @@
2009-08-22 Steven G. Kargl <kargl@gcc.gnu.org>
* gfortran.dg/proc_ptr_24.f90: New test.
2009-08-22 Steven K. kargl <kargl@gcc.gnu.org>
* gfortran.dg/allocate_alloc_opt_4.f90: New test.

21
gcc/testsuite/gfortran.dg/proc_ptr_24.f90 Normal file
View File

@ -0,0 +1,21 @@
! { dg-do compile }
! { dg-options -std=f95 }
!
! Code was posted to comp.lang.fortran by Richard Maine.
! http://groups.google.com/group/comp.lang.fortran/browse_frm/thread/fff9b3426211c018#
!
module m
type :: foo
real, pointer :: array(:)
procedure (), pointer, nopass :: f ! { dg-error "Procedure pointer component" }
end type
contains
elemental subroutine fooAssgn (a1, a2)
type(foo), intent(out) :: a1
type(foo), intent(in) :: a2
allocate (a1%array(size(a2%array)))
a1%array = a2%array
a1%f => a2%f ! { dg-error "not a member of the" }
end subroutine
end module m