http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38813
Tobias Burnus changed:
What|Removed |Added
Status|NEW |RESOLVED
Resolution|
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38813
Tobias Burnus changed:
What|Removed |Added
CC||burnus at gcc dot gnu.org
--- C
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38813
--- Comment #7 from Salvatore Filippone
2012-01-13 12:48:13 UTC ---
(In reply to comment #6)
And the example that still fails:
--
module foo_mod
type foo_type
integer, allocatable :: idx(:)
end type foo_type
end module foo_mod
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38813
Salvatore Filippone changed:
What|Removed |Added
CC||sfilippone at uniroma2 dot
--- Comment #5 from mikael at gcc dot gnu dot org 2009-01-24 22:09 ---
(In reply to comment #4)
> This might lead to wrong code (though I don't know what f77 means for C_LOC):
> I
> think that instead of fsym->as->type one needs to go through the refs to the
> component and do the check
--- Comment #4 from burnus at gcc dot gnu dot org 2009-01-14 21:26 ---
> @@ -2451 +2451 @@ gfc_conv_function_call (gfc_se * se, gfc
> - && fsym->as->type != AS_ASSUMED_SHAPE;
> + && fsym->as && fsym->as->type != AS_ASSUMED_SHAPE;
This might lead to wrong code
--- Comment #3 from mikael at gcc dot gnu dot org 2009-01-14 20:07 ---
is_scalar_expr_ptr is weird.
Those are the things to change in it, IMHO:
- is_scalar_expr_ptr does not need to check whether character lengths are
equal to 1 as arbitrary length character variables are considered as
--- Comment #2 from burnus at gcc dot gnu dot org 2009-01-12 16:59 ---
For the diagnostics: I think it works, but we are checking in case of
C_LOC(Type%Comp) the symbol Type instead of Comp. Assume that Type is a
pointer and Comp is not then "gfc_is_data_pointer()" returns true for Type
--- Comment #1 from burnus at gcc dot gnu dot org 2009-01-12 13:34 ---
> I think NAG f95 is right by rejecting it with:
> Error: line 9: The argument to C_LOC must not be an array pointer
Or maybe not: "15.1.2.5 C_LOC(X)" has for the result value:
"(2) If X is an array data entity, t
