blob: b69d66ed266ac742d3a30d0175487e9dd39f020b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
c { dg-do compile }
c
c g77 gave error
c 19990905-1.f: In subroutine `x':
c 19990905-1.f:15:
c common /foo/n
c 1
c 19990905-1.f:18: (continued):
c call foo(a(1))
c 2
c Invalid declaration of or reference to symbol `foo' at (2) [initially seen at (1)]
* =foo7.f in Burley's g77 test suite.
subroutine x
real a(n)
common /foo/n ! { dg-error "is already being used as a COMMON" }
continue
entry y(a)
call foo(a(1)) ! { dg-error "is already being used as a COMMON" }
end
|
