1c { dg-do compile }
2c { 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
44