https://gcc.gnu.org/bugzilla/show_bug.cgi?id=100110
Bug ID: 100110 Summary: Parameterized Derived Types, problems with global variable Product: gcc Version: 10.1.0 Status: UNCONFIRMED Severity: normal Priority: P3 Component: fortran Assignee: unassigned at gcc dot gnu.org Reporter: xiao....@compiler-dev.com Target Milestone: --- the test case is, program p implicit none type t(n) integer, len :: n integer :: arr(n, n) end type type(t(2)) :: obj print *, obj%n print *, shape(obj%arr) call test() contains subroutine test() print *, obj%n print *, shape(obj%arr) end subroutine end program expected result is 2 2 2 2 2 2 but is 0 0 0 0 0 0