blob: 720d6ddc5d072a6a2c2f0d3dcc53dba64f269038 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
! { dg-do compile }
! { dg-options "-fdec-structure" }
!
! Test a regression where multiple anonymous structures failed to
! receive unique internal names.
!
implicit none
structure /s/
structure record0 ! (2)
integer i
end structure
structure record1 ! regression: Type definition was already defined at (2)
real r
end structure
end structure
record /s/ var
var.record0.i = 0
var.record1.r = 0.0
end
|
