2 ! Tests the fix for PR31994, aka 31867, in which the offset
3 ! of 'a' in both subroutines was being evaluated incorrectly.
4 ! The testcase for PR31867 is char_length_5.f90
6 ! Contributed by Elizabeth Yip <elizabeth.l.yip@boeing.com>
7 ! and Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
15 complex (kind=4), dimension(2,2) :: a, b, c
\r
20 b=conjg (transpose (a))
\r
23 if (any (b .ne. c)) call abort ()
24 end subroutine PR31994
25 subroutine PR31994_comment6
27 real ,dimension(2,2)::a
28 integer ,dimension(2,2) :: b, c
29 a = reshape ((/1.,2.,3.,4./), (/2,2/))
33 if (any (b .ne. c)) call abort ()
34 end subroutine PR31994_comment6
\r