+
−! { dg-do run }
+
−! Option passed to avoid excess errors from obsolete warning
+
−! { dg-options "-w" }
+
−! PR18827
+
−      integer i,j
+
−      common /foo/ i,j
+
−      assign 1000 to j
+
−      j = 5
+
−      goto j
+
− 1000 continue
+
−      end