[gcc.git] / gcc / testsuite / gfortran.dg / logint-2.f

c { dg-do compile }
c { dg-options "-O2 -std=f95" }
       LOGICAL(kind=1) l1
       LOGICAL(kind=2) l2
       LOGICAL         l4
       INTEGER(kind=1) i1
       INTEGER(kind=2) i2
       INTEGER         i4

       i1 = .TRUE.  ! { dg-error "convert" }
       i2 = .TRUE.  ! { dg-error "convert" }
       i4 = .TRUE.  ! { dg-error "convert" }

       i1 = .FALSE. ! { dg-error "convert" }
       i2 = .FALSE. ! { dg-error "convert" }
       i4 = .FALSE. ! { dg-error "convert" }

       i1 = l1      ! { dg-error "convert" }
       i2 = l1      ! { dg-error "convert" }
       i4 = l1      ! { dg-error "convert" }

       i1 = l2      ! { dg-error "convert" }
       i2 = l2      ! { dg-error "convert" }
       i4 = l2      ! { dg-error "convert" }

       i1 = l4      ! { dg-error "convert" }
       i2 = l4      ! { dg-error "convert" }
       i4 = l4      ! { dg-error "convert" }

       l1 = i1      ! { dg-error "convert" }
       l2 = i1      ! { dg-error "convert" }
       l4 = i1      ! { dg-error "convert" }

       l1 = i2      ! { dg-error "convert" }
       l2 = i2      ! { dg-error "convert" }
       l4 = i2      ! { dg-error "convert" }

       l1 = i4      ! { dg-error "convert" }
       l2 = i4      ! { dg-error "convert" }
       l4 = i4      ! { dg-error "convert" }

       END
Commit	Line	Data
c3a29423 RS	1	c { dg-do compile }
c3a29423 RS	2	c { dg-options "-O2 -std=f95" }
df8652dc SK	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
c3a29423 RS	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