9 lines · plain
1! RUN: not %flang_fc1 -fopenmp -fsyntax-only %s 2>&1 | FileCheck %s2type t3end type4type(t), pointer :: a1, a25!$omp atomic write6a1 = a27! CHECK: error: ATOMIC operation requires an intrinsic scalar variable; 'a1' has the POINTER attribute and derived type 't'8end9