gcc/testsuite/gfortran.dg/forall_3.f90

   1 ! the problem here was that we had forgot to call
   2 ! fold_convert in gfc_trans_pointer_assign_need_temp
   3 ! so that we got a pointer to char instead of a
   4 ! pointer to an array
   5 ! we really don't need a temp here.
   6 ! { dg-do compile }
   7
   8       program test_forall
   9          type element
  10             character(32), pointer :: name
  11          end type element
  12          type(element)     :: charts(50)
  13          character(32), target :: names(50)
  14          forall(i=1:50)
  15             charts(i)%name => names(i)
  16          end forall
  17       end
  18