blob: c2d875f897ab0cc8be10fd7cfc4d035ed671b189 [file] [log] [blame]
! { 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