Message ID | 20111007143812.3558.54891@gimli.local |
---|---|
State | New |
Headers | show |
diff --git a/trans-types.c b/trans-types.c index 43f1a19..652c009 100644 --- a/trans-types.c +++ b/trans-types.c @@ -1256,7 +1256,7 @@ gfc_build_array_type (tree type, gfc_array_spec * as, for (n = as->rank; n < as->rank + as->corank; n++) { - if (as->lower[n] == NULL) + if (as->type != AS_DEFERRED && as->lower[n] == NULL) lbound[n] = gfc_index_one_node; else lbound[n] = gfc_conv_array_bound (as->lower[n]);