mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-02-15 19:40:30 +08:00
Code Issues Packages Projects Releases Wiki Activity

associated (associated): Zero-sized arrays should not be reported as ASSOCIATED.

Browse Source 
* intrinsics/associated (associated): Zero-sized arrays should
	not be reported as ASSOCIATED.

From-SVN: r114113
This commit is contained in:
Francois-Xavier Coudert 2006-05-25 14:47:08 +02:00 committed by François-Xavier Coudert
parent 2d60e929a1
commit 71d4afdc0e
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
libgfortran/ChangeLog
View File

@ -1,3 +1,8 @@
2006-05-25 Francois-Xavier Coudert <coudert@clipper.ens.fr>
* intrinsics/associated (associated): Zero-sized arrays should
not be reported as ASSOCIATED.
2006-05-24 Carlos O'Donell <carlos@codesourcery.com>
* Makefile.am: Add install-html target. Add install-html to .PHONY

2
libgfortran/intrinsics/associated.c
View File

@ -52,6 +52,8 @@ associated (const gfc_array_void *pointer, const gfc_array_void *target)
if ((pointer->dim[n].ubound - pointer->dim[n].lbound)
!= (target->dim[n].ubound - target->dim[n].lbound))
return 0;
if (pointer->dim[n].ubound < pointer->dim[n].lbound)
return 0;
}
return 1;