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

PF fortran/88364 

2018-12-16  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PF fortran/88364
	* trans-expr.c (gfc_conv_expr_reference): Do not add clobber if
	the expression contains a reference.

2018-12-16  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/88363
	* intent_out_13.f90: New test.

From-SVN: r267187
This commit is contained in:
Thomas Koenig 2018-12-16 14:32:46 +00:00
parent 57bfedaffe
commit bd810d6370
4 changed files with 35 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2018-12-16 Thomas Koenig <tkoenig@gcc.gnu.org>
PF fortran/88364
* trans-expr.c (gfc_conv_expr_reference): Do not add clobber if
the expression contains a reference.
2018-12-15 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/87944
@ -9,7 +15,7 @@
PR fortran/88138
* decl.c (variable_decl): Check that a derived isn't being assigned
an incompatible entity in an initialization.
2018-12-12 Jakub Jelinek <jakub@redhat.com>
PR fortran/88463

2
gcc/fortran/trans-expr.c
View File

@ -8152,7 +8152,7 @@ gfc_conv_expr_reference (gfc_se * se, gfc_expr * expr, bool add_clobber)
gfc_add_block_to_block (&se->pre, &se->post);
se->expr = var;
}
else if (add_clobber)
else if (add_clobber && expr->ref == NULL)
{
tree clobber;
tree var;

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2018-12-16 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/88363
* intent_out_13.f90: New test.
2018-12-15 H.J. Lu <hongjiu.lu@intel.com>
PR target/88483

22
gcc/testsuite/gfortran.dg/intent_out_13.f90 Normal file
View File

@ -0,0 +1,22 @@
! { dg-do run }
! PR 88364 -- too much was clobbered on call.
module pr88364
implicit none
type t
integer :: b = -1
integer :: c = 2
end type t
contains
subroutine f1 (x)
integer, intent(out) :: x
x = 5
end subroutine f1
subroutine f2 ()
type(t) :: x
call f1 (x%b)
if (x%b .ne. 5 .or. x%c .ne. 2) stop 1
end subroutine f2
end module pr88364
use pr88364
call f2
end