44 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12module m3 public4 type t5 integer, private :: i6 end type7 !ERROR: The default accessibility of this module has already been declared8 private !C8699end10 11subroutine s112 !ERROR: PUBLIC statement may only appear in the specification part of a module13 public !C86914end15 16subroutine s217 !ERROR: PRIVATE attribute may only appear in the specification part of a module18 integer, private :: i !C81719end20 21subroutine s322 type t23 !ERROR: PUBLIC attribute may only appear in the specification part of a module24 integer, public :: i !C81725 end type26end27 28module m429 interface30 module subroutine s()31 end subroutine32 end interface33end34submodule(m4) sm435 !ERROR: PUBLIC statement may only appear in the specification part of a module36 public !C86937 !ERROR: PUBLIC attribute may only appear in the specification part of a module38 real, public :: x !C81739 type :: t40 !ERROR: PRIVATE attribute may only appear in the specification part of a module41 real, private :: y !C81742 end type43end44