1*1c91d9bdSPeter Klausler!RUN: %flang -fsyntax-only -pedantic %s 2>&1 | FileCheck %s 23265b933Speter klauslerinteger, parameter :: j = 10 33265b933Speter klausler! CHECK: Implied DO index 'j' uses an object of the same name in its bounds expressions 43265b933Speter klauslerreal :: a(10) = [(j, j=1,j)] 53265b933Speter klauslerend 6