3 ! Test the fix for PR100110, in which 'obj' was not being initialized.
5 ! Contributed by Xiao Liu <xiao.liu@compiler-dev.com>
16 obj%arr = reshape ([1,2,3,4],[2,2])
17 if (obj%n .ne. 2) stop 1
18 if (any (shape(obj%arr) .ne. [2,2])) stop 2
22 if (obj%n .ne. 2) stop 3
23 if (any (shape(obj%arr) .ne. [2,2])) stop 4
24 if (any (reshape (obj%arr, [4]) .ne. [1,2,3,4])) stop 5