chmod_1.f90: Disable on spu-*-* targets.

* gfortran.dg/chmod_1.f90: Disable on spu-*-* targets.
	* gfortran.dg/chmod_2.f90: Likewise.
	* gfortran.dg/chmod_3.f90: Likewise.
	* gfortran.dg/open_errors.f90: Likewise.
	* gfortran.dg/stat_1.f90: Likewise.
	* gfortran.dg/stat_2.f90: Likewise.

From-SVN: r146244
This commit is contained in:
Ulrich Weigand 2009-04-17 10:41:08 +00:00 committed by Ulrich Weigand
parent 00620286a5
commit 339670f866
7 changed files with 15 additions and 6 deletions

View File

@ -1,3 +1,12 @@
2009-04-17 Ulrich Weigand <Ulrich.Weigand@de.ibm.com>
* gfortran.dg/chmod_1.f90: Disable on spu-*-* targets.
* gfortran.dg/chmod_2.f90: Likewise.
* gfortran.dg/chmod_3.f90: Likewise.
* gfortran.dg/open_errors.f90: Likewise.
* gfortran.dg/stat_1.f90: Likewise.
* gfortran.dg/stat_2.f90: Likewise.
2009-04-17 Ulrich Weigand <Ulrich.Weigand@de.ibm.com>
* gfortran.fortran-torture/execute/nan_inf_fmt.x: Skip on spu-*-*.

View File

@ -1,4 +1,4 @@
! { dg-do run { target { ! *-*-mingw* } } }
! { dg-do run { target { ! { *-*-mingw* spu-*-* } } } }
! { dg-options "-std=gnu" }
implicit none
character(len=*), parameter :: n = "foobar_file"

View File

@ -1,4 +1,4 @@
! { dg-do run { target { ! *-*-mingw* } } }
! { dg-do run { target { ! { *-*-mingw* spu-*-* } } } }
! { dg-options "-std=gnu" }
implicit none
character(len=*), parameter :: n = "foobar_file"

View File

@ -1,4 +1,4 @@
! { dg-do run { target { ! *-*-mingw* } } }
! { dg-do run { target { ! { *-*-mingw* spu-*-* } } } }
! { dg-options "-std=gnu -fdefault-integer-8" }
implicit none
character(len=*), parameter :: n = "foobar_file"

View File

@ -1,4 +1,4 @@
! { dg-do run { target { ! *-*-mingw* } } }
! { dg-do run { target { ! { *-*-mingw* spu-*-* } } } }
! PR30005 Enhanced error messages for OPEN
! Submitted by Jerry DeLisle <jvdelisle@gcc.gnu.org>
character(60) :: msg

View File

@ -1,5 +1,5 @@
! { dg-do run { target fd_truncate } }
! { dg-skip-if "" { *-*-mingw* } { "*" } { "" } }
! { dg-skip-if "" { *-*-mingw* spu-*-* } { "*" } { "" } }
! { dg-options "-std=gnu" }
character(len=*), parameter :: f = "testfile"
integer :: s1(13), r1, s2(13), r2, s3(13), r3

View File

@ -1,5 +1,5 @@
! { dg-do run { target fd_truncate } }
! { dg-skip-if "" { *-*-mingw* } { "*" } { "" } }
! { dg-skip-if "" { *-*-mingw* spu-*-* } { "*" } { "" } }
! { dg-options "-std=gnu" }
character(len=*), parameter :: f = "testfile"
integer :: s1(13), r1, s2(13), r2, s3(13), r3