FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

defined_assignment_7.f90: Fix dg-do.

Browse source 
2013-07-08  Manfred Schwarb  <manfred99@gmx.ch>

        * gfortran.dg/defined_assignment_7.f90: Fix dg-do.
        * gfortran.dg/finalize_10.f90: Fix dg-final.

From-SVN: r200784
This commit is contained in:
Manfred Schwarb 2013-07-08 14:09:13 +02:00 • committed by Tobias Burnus
parent e6ac027046
commit 454e172038
3 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,8 @@
2013-07-08 Manfred Schwarb <manfred99@gmx.ch>
* gfortran.dg/defined_assignment_7.f90: Fix dg-do.
* gfortran.dg/finalize_10.f90: Fix dg-final.
2013-07-08 Jakub Jelinek <jakub@redhat.com>
PR target/57819

2
gcc/testsuite/gfortran.dg/defined_assignment_7.f90
View file

@ -1,4 +1,4 @@
! { dg-compile }
! { dg-do compile }
!
! PR fortran/57508
!

6
gcc/testsuite/gfortran.dg/finalize_10.f90
View file

@ -32,8 +32,8 @@ end subroutine foo
! FINALIZE TYPE:
! { dg-final { scan-tree-dump-times "parm.\[0-9\]+.data = \\(void \\*\\) &\\(\\*aa.\[0-9\]+\\)\\\[0\\\];" 1 "original" } }
! { dg!final { scan-tree-dump-times "__final_m_T2 (&parm.\[0-9\]+, 0, 0);" 1 "original" } }
! { dg!final { scan-tree-dump-times "desc.\[0-9\]+.data = \\(void \\* restrict\\) bb;" 1 "original" } }
! { dg!final { scan-tree-dump-times "__final_m_T2 (&desc.\[0-9\]+, 0, 0);" 1 "original" } }
! { dg-final { scan-tree-dump-times "__final_m_T2 \\(&parm.\[0-9\]+, 0, 0\\);" 1 "original" } }
! { dg-final { scan-tree-dump-times "desc.\[0-9\]+.data = \\(void \\* restrict\\) bb;" 1 "original" } }
! { dg-final { scan-tree-dump-times "__final_m_T2 \\(&desc.\[0-9\]+, 0, 0\\);" 1 "original" } }
! { dg-final { cleanup-tree-dump "original" } }