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/testsuite/gfortran.dg/pr19926.f90 | |
| parent | b7263e8f2f6085de756c1f9ce479e94d731d972c (diff) | |
| download | gcc-5190a458bbace7bd99887361bc7e9f05112908dd.tar.gz | |
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/testsuite/gfortran.dg/pr19926.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr19926.f90 | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/pr19926.f90 b/gcc/testsuite/gfortran.dg/pr19926.f90 new file mode 100644 index 00000000000..34991ec2ec6 --- /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 + |