diff options
| author | Tobias Burnus <burnus@net-b.de> | 2007-07-03 19:16:42 +0000 |
|---|---|---|
| committer | Tobias Burnus <burnus@net-b.de> | 2007-07-03 19:16:42 +0000 |
| commit | f8c7e3eaefb15749284b93d6449bdef27b1c0f75 (patch) | |
| tree | 84cebada84c84dadb401078669e4ae014bd43315 /gcc/testsuite/gfortran.fortran-torture | |
| parent | 2e6e0f2de5809c22f697a9f61419b160ede239bb (diff) | |
2007-07-03 Tobias Burnus <burnus@net-b.de>
PR fortran/30940
* interface.c (get_sym_storage_size): New function.
(get_sym_storage_size): New function.
(compare_actual_formal): Enhance sequence association
support and improve checking.
2007-07-03 Tobias Burnus <burnus@net-b.de>
PR fortran/30940
* gfortran.dg/argument_checking_1.f90: New.
* gfortran.dg/argument_checking_2.f90: New.
* gfortran.dg/argument_checking_3.f90: New.
* gfortran.dg/argument_checking_4.f90: New.
* gfortran.dg/argument_checking_5.f90: New.
* gfortran.fortran-torture/execute/st_function_1.f90: Add dg-warning.
* gfortran.fortran-torture/execute/st_function.f90: Add dg-warning.
git-svn-id: https://gcc.gnu.org/svn/gcc/trunk@126271 138bc75d-0d04-0410-961f-82ee72b054a4
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 |