You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

23 lines
290 B

! RUN: %S/test_errors.sh %s %t %f18
module m
interface
module subroutine s()
end subroutine
end interface
end
submodule(m) s1
end
submodule(m) s2
end
submodule(m:s1) s3
integer x
end
!ERROR: Module 'm' already has a submodule named 's3'
submodule(m:s2) s3
integer y
end