Bug 15722 - in gfortran character*(*) has some problems (see simple example)
Summary: in gfortran character*(*) has some problems (see simple example)
Status: RESOLVED DUPLICATE of bug 15140
Alias: None
Product: gcc
Classification: Unclassified
Component: fortran (show other bugs)
Version: 4.0.0
: P2 normal
Target Milestone: ---
Assignee: Not yet assigned to anyone
URL:
Keywords: ice-on-valid-code
Depends on:
Blocks:
 
Reported: 2004-05-29 08:45 UTC by milan
Modified: 2005-07-23 22:49 UTC (History)
1 user (show)

See Also:
Host:
Target:
Build:
Known to work:
Known to fail:
Last reconfirmed:


Attachments

Note You need to log in before you can comment on or make changes to this bug.
Description milan 2004-05-29 08:45:56 UTC
I just compiled this CVS version of gcc:
--------------------------------------------------------------------------------
Reading specs from /hda3/gcc/lib/gcc/i686-pc-linux-gnu/3.5.0/specs
Configured with: ../gcc/configure --prefix=/hda3/gcc --enable-languages=c,c++,f95
Thread model: posix
gcc version 3.5.0 20040526 (experimental)
---------------------------------------------------------------------------------

I nailed the error to these 5 lines:

      subroutine readcv(title)
      character*(*) title(*)
      title(1)='title'
      return
      end
                                                                               
                                    
And the problem is:
-------------------------------------------------------------------------------
b2:/hda3/home/milan/c31a2# gfortran -c dynio.f
f951: ../../gcc/gcc/fortran/trans-decl.c:1703: gfc_trans_deferred_vars:
Assertion `((enum tree_code) (sym->backend_\decl)->common.code) == PARM_DECL'
failed.
dynio.f: In function `readcv':
dynio.f:4: internal compiler error: Aborted
Please submit a full bug report,
with preprocessed source if appropriate.
See <URL:http://gcc.gnu.org/bugs.html> for instructions.
Comment 1 Andrew Pinski 2004-05-29 12:35:37 UTC
This is a dup of bug 15140.

*** This bug has been marked as a duplicate of 15140 ***