gcc/testsuite/gfortran.dg/logint_2.f

   1 c { dg-do compile }
   2 c { dg-options "-O2 -std=f95" }
   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.  ! { dg-error "convert" }
  11        i2 = .TRUE.  ! { dg-error "convert" }
  12        i4 = .TRUE.  ! { dg-error "convert" }
  13
  14        i1 = .FALSE. ! { dg-error "convert" }
  15        i2 = .FALSE. ! { dg-error "convert" }
  16        i4 = .FALSE. ! { dg-error "convert" }
  17
  18        i1 = l1      ! { dg-error "convert" }
  19        i2 = l1      ! { dg-error "convert" }
  20        i4 = l1      ! { dg-error "convert" }
  21
  22        i1 = l2      ! { dg-error "convert" }
  23        i2 = l2      ! { dg-error "convert" }
  24        i4 = l2      ! { dg-error "convert" }
  25
  26        i1 = l4      ! { dg-error "convert" }
  27        i2 = l4      ! { dg-error "convert" }
  28        i4 = l4      ! { dg-error "convert" }
  29
  30        l1 = i1      ! { dg-error "convert" }
  31        l2 = i1      ! { dg-error "convert" }
  32        l4 = i1      ! { dg-error "convert" }
  33
  34        l1 = i2      ! { dg-error "convert" }
  35        l2 = i2      ! { dg-error "convert" }
  36        l4 = i2      ! { dg-error "convert" }
  37
  38        l1 = i4      ! { dg-error "convert" }
  39        l2 = i4      ! { dg-error "convert" }
  40        l4 = i4      ! { dg-error "convert" }
  41
  42        END
  43