[Bug ada/108157] New: [12/13 regression] object subtype doesn't statically match designated subtype

[Bug ada/108157] New: [12/13 regression] object subtype doesn't statically match designated subtype

[simon at pushface dot org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=108157

            Bug ID: 108157
           Summary: [12/13 regression] object subtype doesn't statically
                    match designated subtype
           Product: gcc
           Version: 12.2.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: ada
          Assignee: unassigned at gcc dot gnu.org
          Reporter: simon at pushface dot org
                CC: dkm at gcc dot gnu.org
  Target Milestone: ---

Created attachment 54118
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=54118&action=edit
Demonstrator

The attached code fails with

   $ /opt/gcc-12.2.0/bin/gcc -c g-socser.adb
   g-socser.adb:13:22: error: object subtype must statically match designated
subtype

The relevant part of g-socser.adb:

     9.       Connect_Socket
    10.         (Socket   => Client.Socket,
    11.          Server   => Client.Client_Address,
    12.          Timeout  => 0.0,
    13.          Selector => Listener.Selector'Unchecked_Access,
                             |
        >>> error: object subtype must statically match designated subtype

The relevant part of g-socser.ads:

    20.    type Connections_Server is tagged limited record
    21.       --  limited because Selector_Type is limited
    22.       Selector : aliased Selector_Type;
    23.    end record;

The relevant part of the GNAT standard library GNAT.Sockets is

   procedure Connect_Socket
     (Socket   : Socket_Type;
      Server   : Sock_Addr_Type;
      Timeout  : Selector_Duration;
      Selector : access Selector_Type := null;
      Status   : out Selector_Status);

and it’s the same Selector_Type all the way.

I’ve looked at Annotated Ada Reference Manual (Ada 2022 Draft 34) 4.9.1[1] and
I can’t see what the problem is.

Note, I don’t know why the code uses 'Unchecked_Access; 'Access gives the same
error, 'Unrestricted_Access compiles OK.

[1] http://www.ada-auth.org/standards/22aarm/html/AA-4-9-1.html

[Bug ada/108157] [12/13 regression] object subtype doesn't statically match designated subtype

[rguenth at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=108157

Richard Biener <rguenth at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
   Target Milestone|---                         |12.3
           Priority|P3                          |P4
           Keywords|                            |rejects-valid

[Bug ada/108157] [12/13/14 regression] object subtype doesn't statically match designated subtype

[rguenth at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=108157

Richard Biener <rguenth at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
   Target Milestone|12.3                        |12.4

--- Comment #1 from Richard Biener <rguenth at gcc dot gnu.org> ---
GCC 12.3 is being released, retargeting bugs to GCC 12.4.

[Bug ada/108157] [12/13/14 regression] object subtype doesn't statically match designated subtype

[simon at pushface dot org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=108157

--- Comment #2 from simon at pushface dot org ---
Still present in 13.1.0.

[Bug ada/108157] [12/13/14 regression] object subtype doesn't statically match designated subtype

[ebotcazou at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=108157

Eric Botcazou <ebotcazou at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |RESOLVED
         Resolution|---                         |WONTFIX
                 CC|                            |ebotcazou at gcc dot gnu.org

--- Comment #3 from Eric Botcazou <ebotcazou at gcc dot gnu.org> ---
        --  Ada 2005 (AI-363): Require static matching when designated
        --  type has discriminants and a constrained partial view, since
        --  in general objects of such types are mutable, so we can't
        --  allow the access value to designate a constrained object
        --  (because access values must be assumed to designate mutable
        --  objects when designated type does not impose a constraint).