diff options
| author | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-06-18 18:27:05 +0000 |
|---|---|---|
| committer | kargl <kargl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-06-18 18:27:05 +0000 |
| commit | bc05520ee63bef7816312ec85f923478b04cceba (patch) | |
| tree | bf4ca8b308fb1e7d694dc78bf219aafe7072a59e /gcc/testsuite/gfortran.dg/pr19926.f90 | |
| parent | 0780501cc6d5086d88a9f6043099079e375d1aa0 (diff) | |
| download | gcc-bc05520ee63bef7816312ec85f923478b04cceba.tar.gz | |
PR fortran/19926
* gfortran.dg/pr19926.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101162 138bc75d-0d04-0410-961f-82ee72b054a4
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 + |