diff options
Diffstat (limited to 'gcc/testsuite/gfortran.fortran-torture')
| -rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/execute/st_function.f90 | 2 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/execute/st_function_1.f90 | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/st_function.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/st_function.f90 index 8bde9b2f740..e8788025ad8 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/st_function.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/st_function.f90 @@ -33,7 +33,7 @@ contains st5 (s1, s2) = s1 // s2 if (st4 (1, 4) .ne. "0123" ) call abort - if (st5 ("01", "02") .ne. "01 02 ") call abort + if (st5 ("01", "02") .ne. "01 02 ") call abort ! { dg-warning "Character length of actual argument shorter" } end subroutine subroutine with_derived_type_dummy diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/st_function_1.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/st_function_1.f90 index 0387a5f71c7..b851a942e3d 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/st_function_1.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/st_function_1.f90 @@ -8,7 +8,7 @@ program st_function_1 bar(p) = p // "World" ! Expression longer than function, actual arg shorter than dummy. - call check (foo("Hello"), "Hello Wo") + call check (foo("Hello"), "Hello Wo") ! { dg-warning "Character length of actual argument shorter" } ! Expression shorter than function, actual arg longer than dummy. ! Result shorter than type |