[thirdparty/gcc.git] / gcc / testsuite / gfortran.dg / pr107397.f90

!{ dg-do compile }
!
program p
  type t
    real :: a = 1.0
  end type
  type(t), parameter :: x = z'1' ! { dg-error "incompatible with a BOZ" }
  x%a = x%a + 2 ! { dg-error "has no IMPLICIT type" }
end
Commit	Line	Data
09710f99 SK	1	!{ dg-do compile }
	2	!
	3	program p
	4	type t
	5	real :: a = 1.0
	6	end type
03fb35f8 JJ	7	type(t), parameter :: x = z'1' ! { dg-error "incompatible with a BOZ" }
03fb35f8 JJ	8	x%a = x%a + 2 ! { dg-error "has no IMPLICIT type" }
09710f99	9	end