[Bug fortran/60561] ICE in gimplify_var_or_parm_decl, at gimplify.c:1721 for gfortran.dg/associate_1.f03

[dominiq at lps dot ens.fr]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=60561

--- Comment #4 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
The ICE is in the following subroutine

  SUBROUTINE test_char (n)
    INTEGER, INTENT(IN) :: n

    CHARACTER(LEN=n) :: str

    str = "foobar"
    ASSOCIATE (my => str)
    END ASSOCIATE
  END SUBROUTINE test_char