1! { dg-do compile } 2! { dg-options "-std=legacy" } 3! 4! This program tests the patch for PR25964. This is a 5! regression that would not allow a common block and a statement 6! to share the same name. 7! 8! Contributed by Paul Thomas <pault@gcc.gnu.org> 9 common /foo/ a, b, c 10 foo (x) = x + 1.0 11 print *, foo (0.0) 12 end 13 14