diff options
| author | jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-07-11 16:42:29 +0000 |
|---|---|---|
| committer | jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-07-11 16:42:29 +0000 |
| commit | 1edb55c86493dbfd1f57a3e41536673fb66588d6 (patch) | |
| tree | ce83cffc923534eee65e3ba122dfa1897efa8daa /gcc/testsuite/gfortran.dg/pr49698.f90 | |
| parent | 367b55f3d8616168d95f009f4b121d7a91cdd833 (diff) | |
| download | gcc-1edb55c86493dbfd1f57a3e41536673fb66588d6.tar.gz | |
PR fortran/49698
* trans-stmt.c (gfc_trans_pointer_assign_need_temp): Initialize
inner_size to gfc_index_one_node instead of integer_one_node.
* gfortran.dg/pr49698.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@176164 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.dg/pr49698.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr49698.f90 | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/pr49698.f90 b/gcc/testsuite/gfortran.dg/pr49698.f90 new file mode 100644 index 00000000000..638cbb0b785 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr49698.f90 @@ -0,0 +1,15 @@ +! PR fortran/49698 +! { dg-do compile } +subroutine foo (x, y, z) + type S + integer, pointer :: e => null() + end type S + type T + type(S), dimension(:), allocatable :: a + end type T + type(T) :: x, y + integer :: z, i + forall (i = 1 : z) + y%a(i)%e => x%a(i)%e + end forall +end subroutine foo |