diff options
| author | pault <pault@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-03-02 11:58:02 +0000 |
|---|---|---|
| committer | pault <pault@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-03-02 11:58:02 +0000 |
| commit | 34de9f8b3f212ffcb65ba1f4bb8f697c6ecf336a (patch) | |
| tree | 822cb28ea2dcad6f2050a6923d4526c2f85af09e /gcc/testsuite/gfortran.dg/internal_pack_10.f90 | |
| parent | 44f1d7db60ef0b1ff67fcd94b903865d551ab5af (diff) | |
| download | gcc-34de9f8b3f212ffcb65ba1f4bb8f697c6ecf336a.tar.gz | |
2010-03-02 Paul Thomas <pault@gcc.gnu.org>
PR fortran/43180
* trans-array.c (gfc_conv_array_parameter): A full array of
derived type need not be restricted to a symbol without an
array spec to use the call to gfc_conv_expr_descriptor.
PR fortran/43173
* trans-array.c (gfc_conv_array_parameter): Contiguous refs to
allocatable arrays do not need temporaries.
2010-03-02 Paul Thomas <pault@gcc.gnu.org>
PR fortran/43180
* gfortran.dg/internal_pack_10.f90: New test.
PR fortran/43173
* gfortran.dg/internal_pack_11.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@157163 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.dg/internal_pack_10.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/internal_pack_10.f90 | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/internal_pack_10.f90 b/gcc/testsuite/gfortran.dg/internal_pack_10.f90 new file mode 100644 index 00000000000..8d972f44c18 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/internal_pack_10.f90 @@ -0,0 +1,41 @@ +! { dg-do run } +! Test the fix for PR43180, in which patch which reduced the use of +! internal_pack/unpack messed up the passing of ru(1)%c as the actual +! argument at line 23 in this testcase. +! +! Contributed by Harald Anlauf <anlauf@gmx.de> +! further reduced by Tobias Burnus <burnus@gcc.gnu.org> +! +module mo_obs_rules + type t_set + integer :: use = 42 + end type t_set + type t_rules + character(len=40) :: comment + type(t_set) :: c (1) + end type t_rules + type (t_rules), save :: ru (1) +contains + subroutine get_rule (c) + type(t_set) :: c (:) + ru(1)%c(:)%use = 99 + if (any (c(:)%use .ne. 42)) call abort + call set_set_v (ru(1)%c, c) + if (any (c(:)%use .ne. 99)) call abort + contains + subroutine set_set_v (src, dst) + type(t_set), intent(in) :: src(1) + type(t_set), intent(inout) :: dst(1) + if (any (src%use .ne. 99)) call abort + if (any (dst%use .ne. 42)) call abort + dst = src + end subroutine set_set_v + end subroutine get_rule +end module mo_obs_rules + +program test + use mo_obs_rules + type(t_set) :: c (1) + call get_rule (c) +end program test +! { dg-final { cleanup-modules "mo_obs_rules" } } |