From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-0.8 required=5.0 tests=BAYES_00,INVALID_DATE
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,ab12a9b0aa09d6f2,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 1994-10-12 22:10:44 PST
Path: 
 bga.com!news.sprintlink.net!howland.reston.ans.net!news.moneng.mei.com!uwm.edu!msuinfo!harbinger.cc.monash.edu.au!aggedor.rmit.EDU.AU!goanna.cs.rmit.oz.au!yallara!s9406722
From: s9406722@yallara.cs.rmit.OZ.AU (Hylton Raymond Peimer)
Newsgroups: comp.lang.ada
Subject: saving variant records in sequential files
Date: 13 Oct 1994 02:53:09 GMT
Organization: Comp Sci, RMIT, Melbourne, Australia
Message-ID: <37i7el$4gd@goanna.cs.rmit.oz.au>
NNTP-Posting-Host: yallara.cs.rmit.oz.au
NNTP-Posting-User: s9406722
Date: 1994-10-13T02:53:09+00:00
List-Id: <comp.lang.ada>

Hi you cool Ada programmer. Take a look at this:

with sequential_io;

procedure test is

type data (info : integer) is record
  case info is
    when 1 => 
      a : integer;
      b : float;
      c : natural;
    when 2 =>
      z : float;
    when others => null;
  end case;
end record;

package dat_file is new sequential_io(data); -- (1)

begin
  null;
end test; 

The package I created on line (1) wont compile under Meridian Ada compiler.
It is because I haven't constrained it as:

    package dat_file is new sequential_io(data(1));

or something similar.

Is Meridian wrong or is this an Ada83/9X feature?
--
   Hylton Peimer  --  s9406722@yallara.cs.rmit.edu.au  --  Team Ada!