1! RUN: %S/test_errors.sh %s %t %f18 2module m 3 public 4 type t 5 integer, private :: i 6 end type 7 !ERROR: The default accessibility of this module has already been declared 8 private !C869 9end 10 11subroutine s1 12 !ERROR: PUBLIC statement may only appear in the specification part of a module 13 public !C869 14end 15 16subroutine s2 17 !ERROR: PRIVATE attribute may only appear in the specification part of a module 18 integer, private :: i !C817 19end 20 21subroutine s3 22 type t 23 !ERROR: PUBLIC attribute may only appear in the specification part of a module 24 integer, public :: i !C817 25 end type 26end 27 28module m4 29 interface 30 module subroutine s() 31 end subroutine 32 end interface 33end 34submodule(m4) sm4 35 !ERROR: PUBLIC statement may only appear in the specification part of a module 36 public !C869 37 !ERROR: PUBLIC attribute may only appear in the specification part of a module 38 real, public :: x !C817 39 type :: t 40 !ERROR: PRIVATE attribute may only appear in the specification part of a module 41 real, private :: y !C817 42 end type 43end 44