https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84006
--- Comment #5 from Thomas Koenig ---
However, this also fails:
program p
type t
integer i
end type
integer rslt
class(t), allocatable :: t_alloc(:)
allocate (t_alloc(10), source=t(1))
rslt = storage_size(t_alloc)
end program p
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84006
--- Comment #4 from Dominique d'Humieres ---
> Looks valid to me.
>
> F2018, 16.9.184 STORAGE_SIZE (A [, KIND])
>
> 3 Arguments.
> A shall be a data object of any type. If it is polymorphic it shall not
> be an undefined pointer. If it is
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84006
Thomas Koenig changed:
What|Removed |Added
Keywords||ice-on-valid-code
CC|
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=84006
Richard Biener changed:
What|Removed |Added
Target Milestone|7.4 |7.5