Commit 4ac3f385 by Francois-Xavier Coudert Committed by François-Xavier Coudert

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
parent 5fba1c4c
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> 2008-05-18 Steven G. Kargl <kargls@comcast.net>
PR fortran/36251 PR fortran/36251
......
! { dg-do run { target fd_truncate } } ! { dg-do run { target fd_truncate } }
! { dg-skip-if "" { *-*-mingw* } { "*" } { "" } }
! { dg-options "-std=gnu" } ! { dg-options "-std=gnu" }
character(len=*), parameter :: f = "testfile" character(len=*), parameter :: f = "testfile"
integer :: s1(13), r1, s2(13), r2, s3(13), r3 integer :: s1(13), r1, s2(13), r2, s3(13), r3
......
! { dg-do run { target fd_truncate } } ! { dg-do run { target fd_truncate } }
! { dg-skip-if "" { *-*-mingw* } { "*" } { "" } }
! { dg-options "-std=gnu" } ! { dg-options "-std=gnu" }
character(len=*), parameter :: f = "testfile" character(len=*), parameter :: f = "testfile"
integer :: s1(13), r1, s2(13), r2, s3(13), r3 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