summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/forall_char_dependencies_1.f90
blob: cad85fb2643ace27b579af4958ef69b8373135d8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
! { dg-do compile }
! Tests fix for PR29211, in which an ICE would be produced by FORALL assignments
! with dependencies.
!
! Contributed by Paul Thomas  <pault@gcc.gnu.org>
!
  character(12), dimension(2) :: a, b
  a= (/"abcdefghijkl","mnopqrstuvwx"/)
! OK because it uses gfc_trans_assignment
  forall (i=1:2) b(i) = a(i)
! Was broken - gfc_trans_assign_need_temp had no handling of string lengths
  forall (i=1:2) a(3-i) = a(i)
end