| ! { 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 |