! RUN: %python %S/test_errors.py %s %flang_fc1

program main
  implicit none
  integer :: ja, jb, j3, j4, j5
  pointer (j1,ja)
  pointer (j2,jb)
  !ERROR: Values in array constructor must have the same declared type when no explicit type appears
  if (any((/j1,j2,j3,j4,j5/)/=(/1,2,3,4,5/))) print *,'fail'
end program main