public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
* [Bug fortran/99709] New: VALUE attribute for an object with nonconstant length parameter
@ 2021-03-22 12:38 xiao.liu@compiler-dev.com
2021-03-22 19:44 ` [Bug fortran/99709] [PDT] " anlauf at gcc dot gnu.org
2023-06-30 8:20 ` pault at gcc dot gnu.org
0 siblings, 2 replies; 3+ messages in thread
From: xiao.liu@compiler-dev.com @ 2021-03-22 12:38 UTC (permalink / raw)
To: gcc-bugs
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=99709
Bug ID: 99709
Summary: VALUE attribute for an object with nonconstant length
parameter
Product: gcc
Version: 10.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: xiao.liu@compiler-dev.com
Target Milestone: ---
The extensions to VALUE attribute(f2008) permitted for an object with a
nonconstant length parameter, but the result of the following test case
is same with none VALUE attribute.
program value_f2008
implicit none
type :: matrix(k)
integer, len :: k
integer :: elements(k, k)
!integer :: elements(2, 2)
end type matrix
type, extends(matrix) :: child
end type child
type(child(2)) :: obj
obj%elements = reshape([1, 2, 3, 4], shape(obj%elements))
call test_value_attr(2, obj)
print *, obj%elements
contains
subroutine test_value_attr(n, nonconstant_length_object)
integer :: n
type(child(n)), value :: nonconstant_length_object
nonconstant_length_object%elements = 0
end subroutine test_value_attr
end program value_f2008
The result is
0 0 0 0
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~2023-06-30 8:20 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2021-03-22 12:38 [Bug fortran/99709] New: VALUE attribute for an object with nonconstant length parameter xiao.liu@compiler-dev.com
2021-03-22 19:44 ` [Bug fortran/99709] [PDT] " anlauf at gcc dot gnu.org
2023-06-30 8:20 ` pault at gcc dot gnu.org
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).