[Bug fortran/35682] assignment to run-time zero-sized complex section stores a value

["tkoenig at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

------- Comment #3 from tkoenig at gcc dot gnu dot org  2008-03-30 16:36 -------

> Related program, which also fails (I thought we fixed this; this seems to be a
> libgfortran problem):
> 
>       integer xda(20)
>       integer, volatile :: n
>       n = 1
>       print *, size(XDA(n:2:-3)) ! should print 0, prints 1
>       END

This appears to be a problem in the front end, the descriptor
isn't filled out correctly:

$ gfortran -fdump-tree-original foo.f90 
$ cat foo.f90
      integer xda(20)
      integer :: n
      n = 1
      print *, size(XDA(n:2:-3)) ! should print 0, prints 1
      END
$ gfortran -g foo.f90 
$ gdb ./a.out 
GNU gdb 6.7.1-debian
Copyright (C) 2007 Free Software Foundation, Inc.
License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.  Type "show copying"
and "show warranty" for details.
This GDB was configured as "i486-linux-gnu"...
Using host libthread_db library "/lib/i686/cmov/libthread_db.so.1".
(gdb) b _gfortran_size0     
Function "_gfortran_size0" not defined.
Make breakpoint pending on future shared library load? (y or [n]) y

Breakpoint 1 (_gfortran_size0) pending.
(gdb) r
Starting program: /tmp/a.out 
Breakpoint 2 at 0xb7f90e94: file
../../../../gcc/trunk/libgfortran/intrinsics/size.c, line 35.
Pending breakpoint "_gfortran_size0" resolved

Breakpoint 2, *_gfortrani_size0 (array=0xbfdb3088)
    at ../../../../gcc/trunk/libgfortran/intrinsics/size.c:41
41        for (n = 0; n < GFC_DESCRIPTOR_RANK (array); n++)
(gdb) p *array
$1 = {data = 0x0, offset = 0, dtype = 265, dim = {{stride = -3, lbound = 1, 
      ubound = 1}, {stride = -1076149005, lbound = 1, ubound = -1076154168}, {
      stride = 134514393, lbound = 1, ubound = -1076154012}, {
      stride = -1076154152, lbound = -1076154144, ubound = -1209417740}, {
      stride = -1208222496, lbound = -1076154056, ubound = -1210674096}, {
      stride = -1208222496, lbound = 134514432, ubound = -1076154056}, {
      stride = -1210674096, lbound = 1, ubound = -1076154012}}}
(gdb) 


-- 


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