diff options
| author | Steven G. Kargl <kargls@comcast.net> | 2005-06-18 18:27:05 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2005-06-18 18:27:05 +0000 |
| commit | 5190a458bbace7bd99887361bc7e9f05112908dd (patch) | |
| tree | bf4ca8b308fb1e7d694dc78bf219aafe7072a59e /gcc | |
| parent | b7263e8f2f6085de756c1f9ce479e94d731d972c (diff) | |
| download | gcc-5190a458bbace7bd99887361bc7e9f05112908dd.zip gcc-5190a458bbace7bd99887361bc7e9f05112908dd.tar.gz gcc-5190a458bbace7bd99887361bc7e9f05112908dd.tar.bz2 | |
re PR fortran/19926 ([4.0 only] Incorrect rank with PARAMETER and array element.)
PR fortran/19926
* gfortran.dg/pr19926.f90: New test.
From-SVN: r101162
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr19926.f90 | 25 |
2 files changed, 30 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 375bd44..2b7719c 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2005-06-18 Steven G. Kargl <kargls@comcast.net> + + PR fortran/19926 + * gfortran.dg/pr19926.f90: New test. + 2005-06-19 Dorit Nuzman <dorit@il.ibm.com> * lib/target-supports.exp (check_effective_target_vect_reduction): New. diff --git a/gcc/testsuite/gfortran.dg/pr19926.f90 b/gcc/testsuite/gfortran.dg/pr19926.f90 new file mode 100644 index 0000000..34991ec --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr19926.f90 @@ -0,0 +1,25 @@ +! { dg-do run } +module b + type cat + integer :: i = 0 + end type cat +end module b + +program a + use b + type(cat) z + integer :: i = 0, j(4,3,2) = 0 + call string_comp(i) + if (i /= 3) call abort + call string_comp(z%i) + if (z%i /= 3) call abort + call string_comp(j(1,2,1)) + if (j(1,2,1) /= 3) call abort +end program a + +subroutine string_comp(i) + integer, parameter :: map(0:50) = 3 + integer :: i + i = map(42) +end subroutine string_comp + |