[Bug ada/15805] New: Illegal program not detected, allows writing through access to constant

[Bug ada/15805] New: Illegal program not detected, allows writing through access to constant

[ludovic dot brenta at insalien dot org]

(Debian bug #246387)

with text_io;
procedure Test_246387 is

   c: aliased constant integer := 3;

   type const_ptr is access constant integer;
   cp : const_ptr := c'access;

   procedure inc(var_ptr: access integer := cp) is
   begin
      var_ptr.all := var_ptr.all + 1;
   end inc;

begin
   text_io.put_line(integer'image(cp.all));
   inc;
   text_io.put_line(integer'image(cp.all));
end Test_246387;


I expect:
test_246387.adb:9:44: incompatible types; expected "access integer", received
"const_ptr"

But I get nothing.

-- 
           Summary: Illegal program not detected, allows writing through
                    access to constant
           Product: gcc
           Version: 3.4.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: ada
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: ludovic dot brenta at insalien dot org
                CC: gcc-bugs at gcc dot gnu dot org


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

[Bug ada/15805] Illegal program not detected, allows writing through access to constant

[pinskia at gcc dot gnu dot org]

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |accepts-invalid


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

[Bug ada/15805] Illegal program not detected, allows writing through access to constant

[pinskia at gcc dot gnu dot org]

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
      Known to fail|                            |4.0.0


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

[Bug ada/15805] Illegal program not detected, allows writing through access to constant

[pinskia at gcc dot gnu dot org]

------- Additional Comments From pinskia at gcc dot gnu dot org  2004-10-29 14:45 -------
Confirmed.

-- 
           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|                            |1
   Last reconfirmed|0000-00-00 00:00:00         |2004-10-29 14:45:01
               date|                            |


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

[Bug ada/15805] Illegal program not detected, allows writing through access to constant

[charlet at gcc dot gnu dot org]

------- Comment #4 from charlet at gcc dot gnu dot org  2007-12-13 17:59 -------
Subject: Bug 15805

Author: charlet
Date: Thu Dec 13 17:59:09 2007
New Revision: 130903

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=130903
Log:
Restore part of patch lost for PR ada/15805:
        * sem_ch3.adb (Analyze_Object_Declaration): Signal an error
        when an access to constant is used to initialize an access
        value.

Modified:
    trunk/gcc/ada/sem_ch3.adb


-- 


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

[Bug ada/15805] Illegal program not detected, allows writing through access to constant

[sam at gcc dot gnu dot org]

------- Comment #3 from sam at gcc dot gnu dot org  2007-12-07 14:39 -------
Fixed in SVN trunk


-- 

sam at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|ASSIGNED                    |RESOLVED
         Resolution|                            |FIXED
   Target Milestone|---                         |4.3.0


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

[Bug ada/15805] Illegal program not detected, allows writing through access to constant

[sam at gcc dot gnu dot org]

------- Comment #2 from sam at gcc dot gnu dot org  2007-12-07 14:35 -------
Subject: Bug 15805

Author: sam
Date: Fri Dec  7 14:35:22 2007
New Revision: 130676

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=130676
Log:
    gcc/ada/
        PR ada/15805
        * sem_ch6.adb (Process_Formals): Prevent an access type formal
        to be initialized with an access to constant object.

    gcc/testsuite/
        PR ada/15805
        * gnat.dg/specs/access_constants.ads: New test.

Added:
    trunk/gcc/testsuite/gnat.dg/specs/access_constant.ads
Modified:
    trunk/gcc/ada/ChangeLog
    trunk/gcc/ada/sem_ch6.adb
    trunk/gcc/testsuite/ChangeLog


-- 


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

[Bug ada/15805] Illegal program not detected, allows writing through access to constant

[sam at gcc dot gnu dot org]

-- 

sam at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |sam at gcc dot gnu dot org
                   |dot org                     |
             Status|NEW                         |ASSIGNED
   Last reconfirmed|2005-07-04 10:20:33         |2007-11-26 23:51:26
               date|                            |


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