diff options
| author | Harald Anlauf <anlauf@gmx.de> | 2023-11-22 21:45:46 +0100 |
|---|---|---|
| committer | Harald Anlauf <anlauf@gmx.de> | 2023-11-23 19:07:16 +0100 |
| commit | 7646b5d88056cf269ff555afe95bc361dcf5e5c0 (patch) | |
| tree | 9d289a56a37ad9b229b4f84d0efd5fb70c537812 | |
| parent | 0c2ecfd4a29161d6c2bd3a83335387f42ff38ffe (diff) | |
| download | gcc-7646b5d88056cf269ff555afe95bc361dcf5e5c0.zip gcc-7646b5d88056cf269ff555afe95bc361dcf5e5c0.tar.gz gcc-7646b5d88056cf269ff555afe95bc361dcf5e5c0.tar.bz2 | |
testsuite: fortran: fix invalid testcases (missing MOLD argument to NULL)
The Fortran standard requires that NULL() passed to an assumed-rank
dummy argument has a MOLD argument.
gcc/testsuite/ChangeLog:
PR fortran/104819
* gfortran.dg/assumed_rank_10.f90: Add MOLD argument to NULL().
* gfortran.dg/assumed_rank_8.f90: Likewise.
| -rw-r--r-- | gcc/testsuite/gfortran.dg/assumed_rank_10.f90 | 6 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/assumed_rank_8.f90 | 4 |
2 files changed, 5 insertions, 5 deletions
diff --git a/gcc/testsuite/gfortran.dg/assumed_rank_10.f90 b/gcc/testsuite/gfortran.dg/assumed_rank_10.f90 index 6a3cc94..f22d43a 100644 --- a/gcc/testsuite/gfortran.dg/assumed_rank_10.f90 +++ b/gcc/testsuite/gfortran.dg/assumed_rank_10.f90 @@ -50,9 +50,9 @@ program test is_present = .false. - call fpa(null(), null()) ! No copy back - call fpi(null(), null()) ! No copy back - call fno(null(), null()) ! No copy back + call fpa(null(iip), null(jjp)) ! No copy back + call fpi(null(iip), null(jjp)) ! No copy back + call fno(null(iip), null(jjp)) ! No copy back call fno() ! No copy back diff --git a/gcc/testsuite/gfortran.dg/assumed_rank_8.f90 b/gcc/testsuite/gfortran.dg/assumed_rank_8.f90 index 5873296..34ff42c 100644 --- a/gcc/testsuite/gfortran.dg/assumed_rank_8.f90 +++ b/gcc/testsuite/gfortran.dg/assumed_rank_8.f90 @@ -22,13 +22,13 @@ program main call f (ii) call f (489) call f () - call f (null()) + call f (null(kk)) call f (kk) if (j /= 2) STOP 1 j = 0 nullify (ll) - call g (null()) + call g (null(ll)) call g (ll) call g (ii) if (j /= 1) STOP 2 |