OSDN Git Service

PR fortran/38181
authorjakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 20 Nov 2008 09:42:35 +0000 (09:42 +0000)
committerjakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4>
Thu, 20 Nov 2008 09:42:35 +0000 (09:42 +0000)
commit43021eb930d8e089eee06932b474a51cd3d0b9aa
tree32fbf0f44b765f71c71b0b6e62f00b0e8df1eb11
parentb718fe638db7f365e5c5ff86eb12b0246aee9554
PR fortran/38181
* trans-intrinsic.c (gfc_conv_intrinsic_size): Inline 2 argument
size if the second argument is not optional and one argument size
for rank 1 arrays.

* gfortran.dg/array_section_2.f90: Adjust pattern to match
the inlined size0 instead of a size0 call.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@142037 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/fortran/ChangeLog
gcc/fortran/trans-intrinsic.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/array_section_2.f90