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

deferred_character_3.f90: Fix dg directive. 

2017-04-15  Dominique d'Humieres  <dominiq@lps.ens.fr>

	* gfortran.dg/deferred_character_3.f90: Fix dg directive.
	* gfortran.dg/generic_29.f90: Likewise.
	* gfortran.dg/goacc/multi-clause.f90: Likewise.
	* gfortran.dg/pr41922.f90: Likewise.
	* gfortran.dg/pr70006.f90: Likewise.

From-SVN: r246940
This commit is contained in:
Dominique d'Humieres 2017-04-15 20:17:11 +02:00 committed by Dominique d'Humieres
parent f378be388e
commit 35cfdb17fa
6 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,11 @@
2017-04-15 Dominique d'Humieres <dominiq@lps.ens.fr>
* gfortran.dg/deferred_character_3.f90: Fix dg directive.
* gfortran.dg/generic_29.f90: Likewise.
* gfortran.dg/goacc/multi-clause.f90: Likewise.
* gfortran.dg/pr41922.f90: Likewise.
* gfortran.dg/pr70006.f90: Likewise.
2017-04-15 Segher Boessenkool <segher@kernel.crashing.org>
PR tree-optimization/66612

2
gcc/testsuite/gfortran.dg/deferred_character_3.f90
View File

@ -1,4 +1,4 @@
! {dg_do run }
! { dg-do run }
!
! Tests the fix for PR67674
!

2
gcc/testsuite/gfortran.dg/generic_29.f90
View File

@ -1,4 +1,4 @@
! { dg-do compile}
! { dg-do compile }
! PR fortran/66057
!
! Original code from Gerhard Steinmetz

2
gcc/testsuite/gfortran.dg/goacc/multi-clause.f90
View File

@ -1,6 +1,6 @@
! Test if variable appearing in multiple clauses are errors.
! { dg-compile }
! { dg-do compile }
program combined
implicit none

2
gcc/testsuite/gfortran.dg/pr41922.f90
View File

@ -1,4 +1,4 @@
! { dg-do compile}
! { dg-do compile }
! { dg-options -std=gnu }
Subroutine RestoreR8Run()
Implicit NONE

2
gcc/testsuite/gfortran.dg/pr70006.f90
View File

@ -1,4 +1,4 @@
! { dg-do compile}
! { dg-do compile }
program test
print 1, 'string 1' ! { dg-error "FORMAT label 1" " " { target *-*-* } 3 }
print 1, 'string 2' ! { dg-error "FORMAT label 1" " " { target *-*-* } 4 }