From 4ac3f385f719274f43e452031e7ac6e9df43c5e3 Mon Sep 17 00:00:00 2001 From: Francois-Xavier Coudert Date: Sun, 18 May 2008 17:55:39 +0000 Subject: [PATCH] stat_1.f90: Skip on mingw. * gfortran.dg/stat_1.f90: Skip on mingw. * gfortran.dg/stat_2.f90: Skip on mingw. From-SVN: r135506 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/stat_1.f90 | 1 + gcc/testsuite/gfortran.dg/stat_2.f90 | 1 + 3 files changed, 7 insertions(+) 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 + + * gfortran.dg/stat_1.f90: Skip on mingw. + * gfortran.dg/stat_2.f90: Skip on mingw. + 2008-05-18 Steven G. Kargl 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 -- 2.30.2