comp.lang.ada
 help / color / mirror / Atom feed
From: Allison Greene <argreene@usanospam.net>
Subject: What's wrong with this program?
Date: Fri, 07 Jun 2002 22:04:23 GMT
Date: 2002-06-07T22:04:23+00:00	[thread overview]
Message-ID: <070620021804210406%argreene@usanospam.net> (raw)


procedure Test_Discriminant is
   type Base is tagged null record;

   type Tower is new Base with
      record
         I : Integer;
      end record;

   Instance: Tower (I => 5);
begin
   null;
end Test_Discriminant;

Result of compiling with GNAT:

[localhost:~/lexicon] wrg% gnatmake -v test_discriminant.adb

GNATMAKE 5.00w (20010924) Copyright 1995-2001 Free Software Foundation,
Inc.
  "test_discriminant.ali" being checked ...
  -> "test_discriminant.ali" missing.
gcc -c test_discriminant.adb
test_discriminant.adb:13:20: invalid constraint: type has no
discriminant
End of compilation
gnatmake: "test_discriminant.adb" compilation error
[localhost:~/lexicon] wrg% 

Q: What discriminant?  What am I doing wrong here?

-- 
-- Bill Greene



             reply	other threads:[~2002-06-07 22:04 UTC|newest]

Thread overview: 4+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2002-06-07 22:04 Allison Greene [this message]
2002-06-07 23:16 ` What's wrong with this program? sk
2002-06-08  3:00 ` Jeffrey Carter
2002-06-08  4:40   ` William R. Greene
replies disabled

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox