PR tree-optimization/86415 - strlen() not folded for substrings within constant arrays
[official-gcc.git] / gcc / testsuite / gfortran.dg / associate_4.f08
blobc336af2ab13c0b1941f0ec0a78e73ef170698a27
1 ! { dg-do compile }
2 ! { dg-options "-std=f2008 -fcoarray=single" }
4 ! PR fortran/38936
5 ! Check for error with coindexed target.
7 PROGRAM main
8   IMPLICIT NONE
9   INTEGER :: a[*]
11   ASSOCIATE (x => a[1]) ! { dg-error "must not be coindexed" }
12 END PROGRAM main