!File: logical_all1.f90
!Generated by logical_gen.f90 1/17/05 19:36:34.***
!Modified by James Van Buskirk 1/17/05

module mykinds
   implicit none
   integer, parameter :: ik1 = selected_int_kind(2)
   integer, parameter :: ik2 = selected_int_kind(4)
   integer, parameter :: ik4 = selected_int_kind(9)
   integer, parameter :: ik8 = selected_int_kind(18)
   integer, parameter :: lk1 = ik1
   integer, parameter :: lk2 = ik2
   integer, parameter :: lk4 = ik4
   integer, parameter :: lk8 = ik8
end module mykinds

module test_mod
   use mykinds
   implicit none
   contains
      recursive subroutine T_AND_F
         logical(lk1), parameter :: it1 = .TRUE._lk1
         logical(lk1), parameter :: if1 = .FALSE._lk1
         logical(lk2), parameter :: it2 = .TRUE._lk2
         logical(lk2), parameter :: if2 = .FALSE._lk2
         logical(lk4), parameter :: it4 = .TRUE._lk4
         logical(lk4), parameter :: if4 = .FALSE._lk4
         logical(lk8), parameter :: it8 = .TRUE._lk8
         logical(lk8), parameter :: if8 = .FALSE._lk8
         integer, parameter :: ik11 = kind(iT1.AND.iF1)
         logical(lk1), parameter :: iv11 = iT1.AND.iF1
         integer, parameter :: ik12 = kind(iT1.AND.iF2)
         logical(lk2), parameter :: iv12 = iT1.AND.iF2
         integer, parameter :: ik14 = kind(iT1.AND.iF4)
         logical(lk4), parameter :: iv14 = iT1.AND.iF4
         integer, parameter :: ik18 = kind(iT1.AND.iF8)
         logical(lk8), parameter :: iv18 = iT1.AND.iF8
         integer, parameter :: ik21 = kind(iT2.AND.iF1)
         logical(lk2), parameter :: iv21 = iT2.AND.iF1
         integer, parameter :: ik22 = kind(iT2.AND.iF2)
         logical(lk2), parameter :: iv22 = iT2.AND.iF2
         integer, parameter :: ik24 = kind(iT2.AND.iF4)
         logical(lk4), parameter :: iv24 = iT2.AND.iF4
         integer, parameter :: ik28 = kind(iT2.AND.iF8)
         logical(lk8), parameter :: iv28 = iT2.AND.iF8
         integer, parameter :: ik41 = kind(iT4.AND.iF1)
         logical(lk4), parameter :: iv41 = iT4.AND.iF1
         integer, parameter :: ik42 = kind(iT4.AND.iF2)
         logical(lk4), parameter :: iv42 = iT4.AND.iF2
         integer, parameter :: ik44 = kind(iT4.AND.iF4)
         logical(lk4), parameter :: iv44 = iT4.AND.iF4
         integer, parameter :: ik48 = kind(iT4.AND.iF8)
         logical(lk8), parameter :: iv48 = iT4.AND.iF8
         integer, parameter :: ik81 = kind(iT8.AND.iF1)
         logical(lk8), parameter :: iv81 = iT8.AND.iF1
         integer, parameter :: ik82 = kind(iT8.AND.iF2)
         logical(lk8), parameter :: iv82 = iT8.AND.iF2
         integer, parameter :: ik84 = kind(iT8.AND.iF4)
         logical(lk8), parameter :: iv84 = iT8.AND.iF4
         integer, parameter :: ik88 = kind(iT8.AND.iF8)
         logical(lk8), parameter :: iv88 = iT8.AND.iF8

         write(*,'(/a)') ' .TRUE. .AND. .FALSE.'
         write(*,'(a)') ' Initialization'
         write(*,'()')
         write(*,'(i2,4(2x,4(1x,l1):2x))') 1,iv11,iv12,iv14,iv18
         write(*,'(i2,4(2x,4(1x,l1):2x))') 2,iv21,iv22,iv24,iv28
         write(*,'(i2,4(2x,4(1x,l1):2x))') 4,iv41,iv42,iv44,iv48
         write(*,'(i2,4(2x,4(1x,l1):2x))') 8,iv81,iv82,iv84,iv88
      end subroutine T_AND_F
end module test_mod

program test
   use mykinds
   use test_mod
   implicit none

   call T_AND_F
end program test