[Bug ada/34354] New: Bug box in save_gnu_tree, at ada/utils.c:176, in legal Ada 2005 program

["ludovic at ludovic-brenta dot org" <gcc-bugzilla at gcc dot gnu dot org>]

(the test case is very similar but not identical to the one in PR ada/34353;
the symptoms are different).

procedure test1 is

    type T1 is record
        X : Integer;
        F : access function return T1;
    end record;

begin
  null;
end test1;

gnatmake -gnat05 test1
gcc-4.1 -c -gnat05 test1.adb
+===========================GNAT BUG DETECTED==============================+
| 4.1.3 20070518 (prerelease) (Debian 4.1.2-8) (x86_64-pc-linux-gnu) GCC
error:|
| in save_gnu_tree, at ada/utils.c:178                                     |
| No source file position information available                            |

gcc -c -gnat05 -x ada test1.ada
+===========================GNAT BUG DETECTED==============================+
| 4.2.2 (i686-unknown-linux-gnu) in save_gnu_tree, at ada/utils.c:176      |
| No source file position information available                            |


-- 
           Summary: Bug box in save_gnu_tree, at ada/utils.c:176, in legal
                    Ada 2005 program
           Product: gcc
           Version: 4.1.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: ada
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: ludovic at ludovic-brenta dot org


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=34354