Commit 339670f8 by Ulrich Weigand Committed by Ulrich Weigand

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
parent 00620286
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-*-*.
* gfortran.fortran-torture/execute/intrinsic_nearest.x: Likewise.
* gfortran.fortran-torture/execute/intrinsic_set_exponent.x: Likewise.
......
! { dg-do run { target { ! *-*-mingw* } } }
! { dg-do run { target { ! { *-*-mingw* spu-*-* } } } }
! { dg-options "-std=gnu" }
implicit none
character(len=*), parameter :: n = "foobar_file"
......
! { dg-do run { target { ! *-*-mingw* } } }
! { dg-do run { target { ! { *-*-mingw* spu-*-* } } } }
! { dg-options "-std=gnu" }
implicit none
character(len=*), parameter :: n = "foobar_file"
......
! { 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"
......
! { 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
......
! { 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
......
! { 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
......
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