! @@name: fort_sp_common.5f ! @@type: F-fixed ! @@compilable: no ! @@linkable: no ! @@expect: failure SUBROUTINE COMMON_WRONG2() COMMON /C/ X,Y ! Incorrect: common block C cannot be declared both ! shared and private !$OMP PARALLEL PRIVATE (/C/), SHARED(/C/) ! do work here !$OMP END PARALLEL END SUBROUTINE COMMON_WRONG2