      program X
      integer :: y
      y = 5abcdef + 3
500   print *, y
      end program
