git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/60952 ([F03] Problem using "end" as a type-bound procedure and contained procedure) 

2016-11-13  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/60952
	* decl.c (match_procedure_in_type): Apply the FL_PROCEDURE attribute
	to the target procedure.

2016-11-13  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/60952
	* gfortran.dg/typebound_proc_34.f90: New test.

From-SVN: r242352
This commit is contained in:
Janus Weil 2016-11-13 12:12:05 +01:00
parent 9cbf867310
commit f9d49cd1d0
4 changed files with 39 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2016-11-13 Janus Weil <janus@gcc.gnu.org>
PR fortran/60952
* decl.c (match_procedure_in_type): Apply the FL_PROCEDURE attribute
to the target procedure.
2016-11-13 Janus Weil <janus@gcc.gnu.org> 2016-11-13 Janus Weil <janus@gcc.gnu.org>
PR fortran/66366 PR fortran/66366

2
gcc/fortran/decl.c
View File

@ -9624,6 +9624,8 @@ match_procedure_in_type (void)
false)) false))
return MATCH_ERROR; return MATCH_ERROR;
gfc_set_sym_referenced (stree->n.tb->u.specific->n.sym); gfc_set_sym_referenced (stree->n.tb->u.specific->n.sym);
gfc_add_flavor(&stree->n.tb->u.specific->n.sym->attr, FL_PROCEDURE,
target, &stree->n.tb->u.specific->n.sym->declared_at);
if (gfc_match_eos () == MATCH_YES) if (gfc_match_eos () == MATCH_YES)
return MATCH_YES; return MATCH_YES;

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2016-11-13 Janus Weil <janus@gcc.gnu.org>
PR fortran/60952
* gfortran.dg/typebound_proc_34.f90: New test.
2016-11-13 Janus Weil <janus@gcc.gnu.org> 2016-11-13 Janus Weil <janus@gcc.gnu.org>
PR fortran/66366 PR fortran/66366

26
gcc/testsuite/gfortran.dg/typebound_proc_34.f90 Normal file
View File

@ -0,0 +1,26 @@
! { dg-do compile }
!
! PR 60952: [F03] Problem using "end" as a type bound procedure and contained procedures
!
! Contributed by tlcclt <Thomas.L.Clune@nasa.gov>
module A_mod
implicit none
type A
contains
procedure, nopass :: end
end type
contains
subroutine swap
contains
subroutine subSwap
end subroutine
end subroutine
integer function end()
end function
end module