From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 1442) id 3051B3858D33; Fri, 17 Feb 2023 03:38:46 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 3051B3858D33 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gcc.gnu.org; s=default; t=1676605126; bh=IQj3pqgeAU7pC7e553SUSvYiIZ2JcLTVJic9VQ+IYWk=; h=From:To:Subject:Date:From; b=CXqoeADiPkbqIU5JB7HiHnaovoYSPozu4KNqGVFfRQikszms15KGZPlRLdCH20uRW XBHj1US+GLELPsobNdD6FkS0rT3KrCmr36FmFFbLoBrUwN+iRavXXX6SRVyL/BV2ln AHcS5SFl7UA4AoiiRYatBGdyXNzi/KEo+9S8Gf1w= MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset="utf-8" From: Jerry DeLisle To: gcc-cvs@gcc.gnu.org Subject: [gcc r13-6112] Fortran test: Modify test cases to pass on mingw. X-Act-Checkin: gcc X-Git-Author: Jerry DeLisle X-Git-Refname: refs/heads/master X-Git-Oldrev: 6108dc91cdaf19b495ae5f5defd31b96c0b87060 X-Git-Newrev: f978585c2939691176ad8d3fa9c2e4e91ed18bf4 Message-Id: <20230217033846.3051B3858D33@sourceware.org> Date: Fri, 17 Feb 2023 03:38:46 +0000 (GMT) List-Id: https://gcc.gnu.org/g:f978585c2939691176ad8d3fa9c2e4e91ed18bf4 commit r13-6112-gf978585c2939691176ad8d3fa9c2e4e91ed18bf4 Author: Jerry DeLisle Date: Thu Feb 16 19:29:44 2023 -0800 Fortran test: Modify test cases to pass on mingw. gcc/testsuite/ChangeLog: * gfortran.dg/ISO_Fortran_binding_14.f90: Change example function to CLOCK which is available on mingw as well as other platforms. * gfortran.dg/pr96486.f90: Change variable to PATH likewise. Diff: --- gcc/testsuite/gfortran.dg/ISO_Fortran_binding_14.f90 | 2 +- gcc/testsuite/gfortran.dg/pr96486.f90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/gcc/testsuite/gfortran.dg/ISO_Fortran_binding_14.f90 b/gcc/testsuite/gfortran.dg/ISO_Fortran_binding_14.f90 index 388c5438252..1a6e2b18d7c 100644 --- a/gcc/testsuite/gfortran.dg/ISO_Fortran_binding_14.f90 +++ b/gcc/testsuite/gfortran.dg/ISO_Fortran_binding_14.f90 @@ -8,7 +8,7 @@ ! MODULE FOO INTERFACE -SUBROUTINE dummy(buf) BIND(C, name="sync") +SUBROUTINE dummy(buf) BIND(C, name="clock") type(*), dimension(..) :: buf END SUBROUTINE END INTERFACE diff --git a/gcc/testsuite/gfortran.dg/pr96486.f90 b/gcc/testsuite/gfortran.dg/pr96486.f90 index fdc7025d61c..dbf740663b2 100644 --- a/gcc/testsuite/gfortran.dg/pr96486.f90 +++ b/gcc/testsuite/gfortran.dg/pr96486.f90 @@ -4,6 +4,6 @@ program test implicit none character(0) :: value integer :: l, stat - call get_environment_variable("HOME",value,length=l,status=stat) + call get_environment_variable("PATH",value,length=l,status=stat) if (stat.ne.-1) stop 1 end program test