https://gcc.gnu.org/bugzilla/show_bug.cgi?id=95718
Bug ID: 95718
Summary: Wrong pointer associated status without initialization
Product: gcc
Version: 10.1.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: peng.w...@compiler-dev.com
Target Milestone: ---
consider the code below:
****
program test
integer,pointer::ptr
integer,pointer::ptr1
integer,pointer::ptr2
integer,pointer::ptr3
integer,pointer::ptr4
print*,associated(ptr),'associated(ptr)'
print*,associated(ptr1),'associated(ptr1)'
print*,associated(ptr2),'associated(ptr2)'
print*,associated(ptr3),'associated(ptr3)'
print*,associated(ptr4),'associated(ptr4)'
end program test
****
#gfortran -std=f2008 test.f90 ; ./a.out
T associated(ptr)
F associated(ptr1)
T associated(ptr2)
F associated(ptr3)
T associated(ptr4)
the associated status of the pointers is uncertain after the execution above.
according to F2008 draft 16.5.2.7, the associated status of the pointer should
be F in the case above.
this is the options given when GCC was configured:
# gfortran -v
Using built-in specs.
COLLECT_GCC=gfortran
COLLECT_LTO_WRAPPER=/usr/local/gcc/libexec/gcc/x86_64-pc-linux-gnu/10.1.0/lto-wrapper
Target: x86_64-pc-linux-gnu
Configured with: ../configure --prefix=/usr/local/gcc -enable-checking=release
-enable-languages=c,fortran -disable-bootstrap -disable-multilib
Thread model: posix
Supported LTO compression algorithms: zlib
gcc version 10.1.0 (GCC)
