1! { dg-do run }
2! Option passed to avoid excess errors from obsolete warning
3! { dg-options "-w" }
4! PR18827
5      integer i,j
6      common /foo/ i,j
7      assign 1000 to j
8      j = 5
9      goto j
10 1000 continue
11      end
12