2008-03-04 Uros Bizjak <ubizjak@gmail.com>

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / global_references_2.f90

! { dg-do compile }
! This program tests the patch for PR25964. This is a
! regression that would not allow a common block and a statement
! to share the same name.
!
! Contributed by Paul Thomas  <pault@gcc.gnu.org>
  common /foo/ a, b, c
  foo (x) = x + 1.0
  print *, foo (0.0)
  end