Subversion Repositories openrisc_me

! the problem here was that we had forgot to call

! the problem here was that we had forgot to call

! fold_convert in gfc_trans_pointer_assign_need_temp

! fold_convert in gfc_trans_pointer_assign_need_temp

! so that we got a pointer to char instead of a

! so that we got a pointer to char instead of a

! pointer to an array

! pointer to an array

! we really don't need a temp here.

! we really don't need a temp here.

! { dg-do compile }

! { dg-do compile }

      program test_forall

      program test_forall

         type element

         type element

            character(32), pointer :: name

            character(32), pointer :: name

         end type element

         end type element

         type(element)     :: charts(50)

         type(element)     :: charts(50)

         character(32), target :: names(50)

         character(32), target :: names(50)

         forall(i=1:50)

         forall(i=1:50)

            charts(i)%name => names(i)

            charts(i)%name => names(i)

         end forall

         end forall

      end

      end