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

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