diff options
| author | Bud Davis <bdavis9659@comcast.net> | 2004-06-12 13:42:46 +0000 |
|---|---|---|
| committer | Paul Brook <pbrook@gcc.gnu.org> | 2004-06-12 13:42:46 +0000 |
| commit | 4aef80f8e0b9f3a18e2afb6d10dcdcc26683d34d (patch) | |
| tree | 9c48e29daf05d7e67525b21b88ec62b1f076a4f0 /gcc | |
| parent | 7b1b4aed94bc2787c2e8654bb7a678c56f96a214 (diff) | |
| download | gcc-4aef80f8e0b9f3a18e2afb6d10dcdcc26683d34d.zip gcc-4aef80f8e0b9f3a18e2afb6d10dcdcc26683d34d.tar.gz gcc-4aef80f8e0b9f3a18e2afb6d10dcdcc26683d34d.tar.bz2 | |
args.c: Implement GETARG and IARGC.
* intrinsics/args.c: Implement GETARG and IARGC.
* Makefile.am: Add it.
* Makefile.in: Regenerate.
testsuite/
* gfortran.fortran-torture/execute/getarg_1.f90: New test.
From-SVN: r83027
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/execute/getarg_1.f90 | 24 |
2 files changed, 28 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index ec49a66..8b00960 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,9 @@ 2004-06-12 Bud Davis <bdavis9659@comcast.net> + * gfortran.fortran-torture/execute/getarg_1.f90: New test. + +2004-06-12 Bud Davis <bdavis9659@comcast.net> + PR gfortran/12839 * gfortran.fortran-torture/execute/nan_inf_fmt.f90: New test. diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/getarg_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/getarg_1.f90 new file mode 100644 index 0000000..2d56686 --- /dev/null +++ b/gcc/testsuite/gfortran.fortran-torture/execute/getarg_1.f90 @@ -0,0 +1,24 @@ +! Check that getarg does somethig sensible. +program getarg_1 + CHARACTER*10 ARGS + INTEGER*4 I + I = 0 + CALL GETARG(I,ARGS) + ! This should return the invoking command. The actual value depends + ! on the OS, but a blank string is wrong no matter what. + ! ??? What about deep embedded systems? + if (args.eq.'') call abort + I = 1 + CALL GETARG(I,ARGS) + if (args.ne.'') call abort + I = -1 + CALL GETARG(I,ARGS) + if (args.ne.'') call abort + ! Assume we won't have been called with more that 4 args. + I = 4 + CALL GETARG(I,ARGS) + if (args.ne.'') call abort + I = 1000 + CALL GETARG(I,ARGS) + if (args.ne.'') call abort +end |