------- Comment #2 from burnus at gcc dot gnu dot org  2009-09-30 14:38 -------
(In reply to comment #1)
> As noted,
>     character(3), parameter   :: parm(5) = (/'xo ','yo ','ag ','xr ','yr '/)
> works.

Interestingly, it also works if one places "parm" into PROGRAM instead of using
it in a subroutine (module or separate). In the SUBROUTINE one has
(-fdump-tree-original):

  character(kind=1) parm[5][1:3];
      parm.1.data = (void *) &parm[0];

In PROGRAM - or with 4.2 in SUBROUTINE - one has:

  static character(kind=1) parm[5][1:3] = {"xo ", "yo ", "ag ", "xr ", "yr "};
      parm.1.data = (void *) &parm[0];


-- 

burnus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
           Keywords|                            |wrong-code
      Known to fail|                            |4.3.4 4.4.1 4.5.0
      Known to work|                            |4.1.2 4.2.1
   Last reconfirmed|0000-00-00 00:00:00         |2009-09-30 14:38:58
               date|                            |
            Summary|PARAMETER statement in      |[4.3/4.4/4.5 Regression]
                   |module subrouines           |PARAMETER statement in
                   |                            |module subrouines
   Target Milestone|---                         |4.3.6


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

Reply via email to