OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
2006-10-05 Erik Edelmann <edelmann@gcc.gnu.org>
[pf3gnuchains/gcc-fork.git]
/
gcc
/
fortran
/
interface.c
diff --git
a/gcc/fortran/interface.c
b/gcc/fortran/interface.c
index
47fc79b
..
a3c80f2
100644
(file)
--- a/
gcc/fortran/interface.c
+++ b/
gcc/fortran/interface.c
@@
-374,6
+374,9
@@
gfc_compare_derived_types (gfc_symbol * derived1, gfc_symbol * derived2)
if (dt1->dimension != dt2->dimension)
return 0;
+ if (dt1->allocatable != dt2->allocatable)
+ return 0;
+
if (dt1->dimension && gfc_compare_array_spec (dt1->as, dt2->as) == 0)
return 0;