2 ! { dg-options "-Wall" }
4 ! PR 57022: [4.7/4.8/4.9 Regression] Inappropriate warning for use of TRANSFER with arrays
5 ! Contributed by William Clodius <wclodius@los-alamos.net>
7 subroutine transfers (test
)
9 use, intrinsic :: iso_fortran_env
11 integer, intent(in
) :: test
13 integer(int8
) :: test8(8) = 0
14 integer(int16
) :: test16(4) = 0
15 integer(int32
) :: test32(2) = 0
16 integer(int64
) :: test64
= 0
20 test64
= transfer(test8
, test64
)
22 test64
= transfer(test16
, test64
)
24 test64
= transfer(test32
, test64
)
26 test8
= transfer(test64
, test8
, 8)
28 test16
= transfer(test64
, test16
, 4)
30 test32
= transfer(test64
, test32
, 2)
36 ! PR 53685: surprising warns about transfer with explicit character range
37 ! Contributed by Jos de Kloe <kloedej@knmi.nl>
39 subroutine mytest(byte_array
,val
)
40 integer, parameter :: r8_
= Selected_Real_Kind(15,307) ! = real*8
41 character(len
=1), dimension(16), intent(in
) :: byte_array
42 real(r8_
),intent(out
) :: val
43 val
= transfer(byte_array(1:8),val
)