! { dg-do compile }
! { dg-options "-fdec-structure" }
!
! Tests for what CAN'T be done with dot ('.') as a member accessor.
!

structure /s1/
  integer eq
end structure

record /s1/ r
integer i, j, k

j = i.j          ! { dg-error "nonderived-type variable" }
j = r .eq. i     ! { dg-error "Operands of comparison" }
j = r.i          ! { dg-error "is not a member of" }
j = r.           ! { dg-error "Expected structure component or operator name" }
j = .i           ! { dg-error "Invalid character in name" }

end