diff options
author | (no author) <(no author)@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-04-22 02:26:22 +0000 |
---|---|---|
committer | (no author) <(no author)@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-04-22 02:26:22 +0000 |
commit | 94528b8483213ee766fee7bc1917caf5a301f448 (patch) | |
tree | b53a754e6b06b616e174ba10db778fee72544ffc /gcc/testsuite/gfortran.dg/bound_1.f90 | |
parent | 0fcc981fa6eb41869dce802e289b012f4c3726be (diff) |
This commit was manufactured by cvs2svn to create tagapple/gcc-5010
'apple-gcc-5010'.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/tags/apple-gcc-5010@98539 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.dg/bound_1.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/bound_1.f90 | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/bound_1.f90 b/gcc/testsuite/gfortran.dg/bound_1.f90 new file mode 100644 index 00000000000..ce872bb0af5 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/bound_1.f90 @@ -0,0 +1,20 @@ +! { dg-do run } + implicit none + + type test_type + integer, dimension(5) :: a + end type test_type + + type (test_type), target :: tt(2) + integer i + + i = ubound(tt(1)%a, 1) + if (i/=5) call abort() + i = lbound(tt(1)%a, 1) + if (i/=1) call abort() + + i = ubound(tt, 1) + if (i/=2) call abort() + i = lbound(tt, 1) + if (i/=1) call abort() +end |