1! { dg-do compile } 2! 3program p 4 implicit none 5 integer :: x(4) = [1,2,3,4] 6 print *, [real(x(k))] ! { dg-error "Symbol 'k' at .1. has no IMPLICIT type" } 7end 8 9