OSDN Git Service

2010-11-24 Tobias Burnus <burnus@net-b.de>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / transfer_simplify_10.f90
1 ! { dg-do run }
2 !
3 ! PR fortran/46638
4 !
5 ! Contributed by James Van Buskirk
6 !
7 program test5
8    use ISO_C_BINDING
9    implicit none
10    type, bind(C) :: CPUID_type
11       integer(C_INT32_T) eax
12       integer(C_INT32_T) ebx
13       integer(C_INT32_T) edx
14       integer(C_INT32_T) ecx
15       integer(C_INT32_T) bbb
16    end type CPUID_type
17    type(CPUID_TYPE) result
18   result = transfer(achar(10)//achar(0)//achar(0)//achar(0)//'GenuineIntel'//'abcd',result)
19
20   if (     int(z'0000000A') /= result%eax  &
21       .or. int(z'756E6547') /= result%ebx  &
22       .or. int(z'49656E69') /= result%edx  &
23       .or. int(z'6C65746E') /= result%ecx  &
24       .or. int(z'64636261') /= result%bbb) then
25     write(*,'(5(z8.8:1x))') result
26     call abort()
27   end if
28 end program test5