1! { dg-do compile }
2! { dg-options "-fdec-structure" }
3!
4! Tests for what CAN'T be done with dot ('.') as a member accessor.
5!
6
7structure /s1/
8  integer eq
9end structure
10
11record /s1/ r
12integer i, j, k
13
14j = i.j          ! { dg-error "nonderived-type variable" }
15j = r .eq. i     ! { dg-error "Operands of comparison" }
16j = r.i          ! { dg-error "is not a member of" }
17j = r.           ! { dg-error "Expected structure component or operator name" }
18j = .i           ! { dg-error "Invalid character in name" }
19
20end
21