blob: f6f5b6f9d13d49e8e134bb687420ea5302e91c33 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
! { 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
|