Subversion Repositories openrisc

! { dg-do compile }

! Option passed to avoid excess errors from obsolete warning

! { dg-options "-w" }

! PR18827

      integer i,j

      equivalence (i,j)

      assign 1000 to i

      write (*, j) ! { dg-error "not been assigned a format label" }

      goto j   ! { dg-error "not been assigned a target label" }

 1000 continue

      end