diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2023-02-16 19:29:44 -0800 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2023-02-16 19:38:19 -0800 |
| commit | f978585c2939691176ad8d3fa9c2e4e91ed18bf4 (patch) | |
| tree | 8e96fc12f0315682bf2954337c76e1b603d2366b | |
| parent | 6108dc91cdaf19b495ae5f5defd31b96c0b87060 (diff) | |
| download | gcc-f978585c2939691176ad8d3fa9c2e4e91ed18bf4.zip gcc-f978585c2939691176ad8d3fa9c2e4e91ed18bf4.tar.gz gcc-f978585c2939691176ad8d3fa9c2e4e91ed18bf4.tar.bz2 | |
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.
| -rw-r--r-- | gcc/testsuite/gfortran.dg/ISO_Fortran_binding_14.f90 | 2 | ||||
| -rw-r--r-- | 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 388c543..1a6e2b1 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 fdc7025..dbf7406 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 |