------- Comment #1 from jv244 at cam dot ac dot uk 2008-11-14 09:07 ------- I guess this one is similar enough to put here as well:
SUBROUTINE S1(a,i,j,k,m) INTEGER :: a(3,6) write(6,*) ALL(a(1:3,m).EQ.(/i,j,k/)) END -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38115