diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/forall_char_dependencies_1.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/forall_char_dependencies_1.f90 | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/forall_char_dependencies_1.f90 b/gcc/testsuite/gfortran.dg/forall_char_dependencies_1.f90 new file mode 100644 index 000000000..cad85fb26 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/forall_char_dependencies_1.f90 @@ -0,0 +1,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 |