[Bug fortran/57596] Wrong code for allocatable deferred-length strings

[burnus at gcc dot gnu.org]

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

Tobias Burnus <burnus at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |wrong-code
             Status|RESOLVED                    |REOPENED
   Last reconfirmed|                            |2013-06-13
             Blocks|                            |45170
         Resolution|INVALID                     |---
            Summary|select type bug with        |Wrong code for allocatable
                   |optional variables?         |deferred-length strings
     Ever confirmed|0                           |1

--- Comment #3 from Tobias Burnus <burnus at gcc dot gnu.org> ---
REOPEN

PROGRAM main
  IMPLICIT NONE
  call get ()
contains
  SUBROUTINE get (c_val)
    CHARACTER( : ), INTENT( OUT ), ALLOCATABLE, OPTIONAL :: c_val
    CHARACTER( 10 ) :: c_val_tmp
    if(present(c_val)) c_val = c_val_tmp
  END SUBROUTINE get
END PROGRAM main