Commit 35cfdb17 by Dominique d'Humieres Committed by Dominique d'Humieres

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
parent f378be38
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
......
! {dg_do run }
! { dg-do run }
!
! Tests the fix for PR67674
!
......
! { dg-do compile}
! { dg-do compile }
! PR fortran/66057
!
! Original code from Gerhard Steinmetz
......
! Test if variable appearing in multiple clauses are errors.
! { dg-compile }
! { dg-do compile }
program combined
implicit none
......
! { dg-do compile}
! { dg-do compile }
! { dg-options -std=gnu }
Subroutine RestoreR8Run()
Implicit NONE
......
! { 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 }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment