! { dg-do compile }
! Check that PR102597 does not resurface. Regression caused ICE at associate
! statement.
! Contributed by Gerhard Steinmetz  <gscfq@t-online.de>
program p
   use iso_fortran_env
   associate (y => (compiler_version)) ! { dg-error "is a procedure name" }
   end associate
end