diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-18 17:55:39 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2008-05-18 17:55:39 +0000 |
| commit | 0c87dcdddc4c786f6286607f6ba68d0f3806caf9 (patch) | |
| tree | bba4ca3d02145fb27f52901473699b379f60e5fd | |
| parent | 2b12b2136b7eda2cde5412c90a06fefa40681e20 (diff) | |
| download | ppe42-gcc-0c87dcdddc4c786f6286607f6ba68d0f3806caf9.tar.gz ppe42-gcc-0c87dcdddc4c786f6286607f6ba68d0f3806caf9.zip | |
* gfortran.dg/stat_1.f90: Skip on mingw.
* gfortran.dg/stat_2.f90: Skip on mingw.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@135506 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/stat_1.f90 | 1 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/stat_2.f90 | 1 |
3 files changed, 7 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index d7ad2ec1bd3..0e67e25c755 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2008-05-18 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> + + * gfortran.dg/stat_1.f90: Skip on mingw. + * gfortran.dg/stat_2.f90: Skip on mingw. + 2008-05-18 Steven G. Kargl <kargls@comcast.net> PR fortran/36251 diff --git a/gcc/testsuite/gfortran.dg/stat_1.f90 b/gcc/testsuite/gfortran.dg/stat_1.f90 index b9dc10095d2..df60c3948f2 100644 --- a/gcc/testsuite/gfortran.dg/stat_1.f90 +++ b/gcc/testsuite/gfortran.dg/stat_1.f90 @@ -1,4 +1,5 @@ ! { dg-do run { target fd_truncate } } +! { dg-skip-if "" { *-*-mingw* } { "*" } { "" } } ! { dg-options "-std=gnu" } character(len=*), parameter :: f = "testfile" integer :: s1(13), r1, s2(13), r2, s3(13), r3 diff --git a/gcc/testsuite/gfortran.dg/stat_2.f90 b/gcc/testsuite/gfortran.dg/stat_2.f90 index b57b52f9300..4622395c34d 100644 --- a/gcc/testsuite/gfortran.dg/stat_2.f90 +++ b/gcc/testsuite/gfortran.dg/stat_2.f90 @@ -1,4 +1,5 @@ ! { dg-do run { target fd_truncate } } +! { dg-skip-if "" { *-*-mingw* } { "*" } { "" } } ! { dg-options "-std=gnu" } character(len=*), parameter :: f = "testfile" integer :: s1(13), r1, s2(13), r2, s3(13), r3 |
