diff options
Diffstat (limited to 'gcc/testsuite/gfortran.fortran-torture/execute/getarg_1.f90')
-rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/execute/getarg_1.f90 | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/getarg_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/getarg_1.f90 index 2d566862d2d..7189991f7eb 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/getarg_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/getarg_1.f90 @@ -1,12 +1,18 @@ ! Check that getarg does somethig sensible. program getarg_1 - CHARACTER*10 ARGS + CHARACTER*10 ARGS, ARGS2 INTEGER*4 I + INTEGER*2 I2 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? + + I2 = 0 + CALL GETARG(I2,ARGS2) + if (args2.ne.args) call abort + if (args.eq.'') call abort I = 1 CALL GETARG(I,ARGS) |