From a34dda5b51c5242cf014e0fa47e6a230c98aff06 Mon Sep 17 00:00:00 2001 From: David Billinghurst Date: Sun, 10 May 2009 01:14:50 +0000 Subject: [PATCH] re PR fortran/38956 (tests gfortran.dg/chmod_{1,2,3}.f90 fails on i686-pc-cygwin) 2009-04-10 David Billinghurst PR fortran/38956 * gfortran.dg/chmod_1.f90: Don't run on *-*-cygwin*. * gfortran.dg/chmod_2.f90: Likewise. * gfortran.dg/chmod_3.f90: Likewise. * gfortran.dg/open_errors.f90: Likewise. From-SVN: r147326 --- gcc/testsuite/ChangeLog | 8 ++++++++ gcc/testsuite/gfortran.dg/chmod_1.f90 | 3 ++- gcc/testsuite/gfortran.dg/chmod_2.f90 | 3 ++- gcc/testsuite/gfortran.dg/chmod_3.f90 | 3 ++- gcc/testsuite/gfortran.dg/open_errors.f90 | 3 ++- 5 files changed, 16 insertions(+), 4 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index c2fb1d3..3f59a37 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,11 @@ +2009-04-10 David Billinghurst + + PR fortran/38956 + * gfortran.dg/chmod_1.f90: Don't run on *-*-cygwin*. + * gfortran.dg/chmod_2.f90: Likewise. + * gfortran.dg/chmod_3.f90: Likewise. + * gfortran.dg/open_errors.f90: Likewise. + 2009-05-09 Jan Hubicka PR middle-end/40043 diff --git a/gcc/testsuite/gfortran.dg/chmod_1.f90 b/gcc/testsuite/gfortran.dg/chmod_1.f90 index 1c7907e..07760cf 100644 --- a/gcc/testsuite/gfortran.dg/chmod_1.f90 +++ b/gcc/testsuite/gfortran.dg/chmod_1.f90 @@ -1,5 +1,6 @@ -! { dg-do run { target { ! { *-*-mingw* spu-*-* } } } } +! { dg-do run { target { ! { *-*-mingw* *-*-cygwin* spu-*-* } } } } ! { dg-options "-std=gnu" } +! See PR38956. Test fails on cygwin when user has Administrator rights implicit none character(len=*), parameter :: n = "foobar_file" integer :: i diff --git a/gcc/testsuite/gfortran.dg/chmod_2.f90 b/gcc/testsuite/gfortran.dg/chmod_2.f90 index b43c60f..3e5ed61 100644 --- a/gcc/testsuite/gfortran.dg/chmod_2.f90 +++ b/gcc/testsuite/gfortran.dg/chmod_2.f90 @@ -1,5 +1,6 @@ -! { dg-do run { target { ! { *-*-mingw* spu-*-* } } } } +! { dg-do run { target { ! { *-*-mingw* *-*-cygwin* spu-*-* } } } } ! { dg-options "-std=gnu" } +! See PR38956. Test fails on cygwin when user has Administrator rights implicit none character(len=*), parameter :: n = "foobar_file" integer :: i diff --git a/gcc/testsuite/gfortran.dg/chmod_3.f90 b/gcc/testsuite/gfortran.dg/chmod_3.f90 index c97af6d..9e92eca 100644 --- a/gcc/testsuite/gfortran.dg/chmod_3.f90 +++ b/gcc/testsuite/gfortran.dg/chmod_3.f90 @@ -1,5 +1,6 @@ -! { dg-do run { target { ! { *-*-mingw* spu-*-* } } } } +! { dg-do run { target { ! { *-*-mingw* *-*-cygwin* spu-*-* } } } } ! { dg-options "-std=gnu -fdefault-integer-8" } +! See PR38956. Test fails on cygwin when user has Administrator rights implicit none character(len=*), parameter :: n = "foobar_file" integer :: i diff --git a/gcc/testsuite/gfortran.dg/open_errors.f90 b/gcc/testsuite/gfortran.dg/open_errors.f90 index 729cc6a..d6f1e430 100644 --- a/gcc/testsuite/gfortran.dg/open_errors.f90 +++ b/gcc/testsuite/gfortran.dg/open_errors.f90 @@ -1,6 +1,7 @@ -! { dg-do run { target { ! { *-*-mingw* spu-*-* } } } } +! { dg-do run { target { ! { *-*-mingw* *-*-cygwin* spu-*-* } } } } ! PR30005 Enhanced error messages for OPEN ! Submitted by Jerry DeLisle +! See PR38956. Test fails on cygwin when user has Administrator rights character(60) :: msg character(25) :: n = "temptestfile" logical :: there -- 2.7.4