gcc/testsuite/gfortran.dg/logint-1.f

   1 c { dg-do compile }
   2 c { dg-options "-O2 -std=legacy" }
   3        LOGICAL(kind=1) l1
   4        LOGICAL(kind=2) l2
   5        LOGICAL         l4
   6        INTEGER(kind=1) i1
   7        INTEGER(kind=2) i2
   8        INTEGER         i4
   9
  10        i1 = .TRUE.
  11        i2 = .TRUE.
  12        i4 = .TRUE.
  13
  14        i1 = .FALSE.
  15        i2 = .FALSE.
  16        i4 = .FALSE.
  17
  18        i1 = l1
  19        i2 = l1
  20        i4 = l1
  21
  22        i1 = l2
  23        i2 = l2
  24        i4 = l2
  25
  26        i1 = l4
  27        i2 = l4
  28        i4 = l4
  29
  30        l1 = i1
  31        l2 = i1
  32        l4 = i1
  33
  34        l1 = i2
  35        l2 = i2
  36        l4 = i2
  37
  38        l1 = i4
  39        l2 = i4
  40        l4 = i4
  41
  42        END
  43