2009-01-28 Paul Thomas <pault@gcc.gnu.org>
commit0163eeb836f9144e582c9623e69fdb25be707baa
authorpault <pault@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 28 Jan 2009 21:48:53 +0000 (28 21:48 +0000)
committerpault <pault@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 28 Jan 2009 21:48:53 +0000 (28 21:48 +0000)
treee13e8efea1b864dfafd2a18c470041a2c15dd1b8
parent2fdf186fa4124baf6b3da406a58088d0dbce6418
2009-01-28  Paul Thomas  <pault@gcc.gnu.org>

PR fortran/38852
PR fortran/39006
* trans-intrinsic.c (gfc_conv_intrinsic_bound): Use the array
descriptor ubound for UBOUND, when the array lbound == 1.

2009-01-28  Paul Thomas  <pault@gcc.gnu.org>

PR fortran/38852
PR fortran/39006
* gfortran.dg/bound_6.f90: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@143743 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/fortran/ChangeLog
gcc/fortran/trans-intrinsic.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/bound_6.f90 [new file with mode: 0644]