diff options
| author | Tobias Burnus <burnus@net-b.de> | 2011-05-14 12:34:44 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2011-05-14 12:34:44 +0200 |
| commit | e6242bc79e68c0eccb23912870dc3b30790b7bfc (patch) | |
| tree | 0e5648b3f312aa5598b00b22dcc01130729add57 /gcc/testsuite/gfortran.dg | |
| parent | 4e4c4f4161242fa556ef872c5be3f21ade22b6f0 (diff) | |
| download | gcc-e6242bc79e68c0eccb23912870dc3b30790b7bfc.zip gcc-e6242bc79e68c0eccb23912870dc3b30790b7bfc.tar.gz gcc-e6242bc79e68c0eccb23912870dc3b30790b7bfc.tar.bz2 | |
re PR fortran/18918 (Eventually support Fortran 2008's coarrays [co-arrays])
2011-05-14 Tobias Burnus <burnus@net-b.de>
PR fortran/18918
* interface.c (compare_parameter): Skip diagnostic if
actual argument is not an array; rank mismatch is diagnosted later.
2011-05-14 Tobias Burnus <burnus@net-b.de>
PR fortran/18918
* gfortran.de/coarray_20.f90: New.
From-SVN: r173755
Diffstat (limited to 'gcc/testsuite/gfortran.dg')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/coarray_20.f90 | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/coarray_20.f90 b/gcc/testsuite/gfortran.dg/coarray_20.f90 new file mode 100644 index 0000000..8005768 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/coarray_20.f90 @@ -0,0 +1,15 @@ +! { dg-do compile } +! { dg-options "-fcoarray=single" } +! +! Before a bogus error (argument not simply contiguous) +! was printed instead of the rank mismatch +! +! PR fortran/18918 +! +integer :: A[*] +call bar(A) ! { dg-error "Rank mismatch in argument" } +contains + subroutine bar(x) + integer :: x(1)[*] + end subroutine bar +end |