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