2 ! { dg-require-effective-target fortran_large_int }
5 integer,parameter :: k = selected_int_kind (range (0_8) + 1)
7 subroutine testoutput (a,b,length,f)
8 integer(kind=k),intent(in) :: a
9 integer(kind=8),intent(in) :: b
10 integer,intent(in) :: length
11 character(len=*),intent(in) :: f
13 character(len=length) :: ca
14 character(len=length) :: cb
18 if (ca /= cb) call abort
19 end subroutine testoutput
23 ! Testing I/O of large integer kinds (larger than kind=8)
29 character(len=50) :: c1, c2
31 call testoutput (0_k,0_8,50,'(I50)')
32 call testoutput (1_k,1_8,50,'(I50)')
33 call testoutput (-1_k,-1_8,50,'(I50)')
35 call testoutput (x,huge(0_8),50,'(I50)')
37 call testoutput (x,-huge(0_8),50,'(I50)')
40 ! { dg-final { cleanup-modules "testmod" } }