maxjhandsome
/
llvm-project
forked from OSchip/llvm-project
1
0
Fork 0
Code Issues Pull Requests Packages Releases Wiki Activity

[flang] Fix for flang-compiler/f18#694 - Unexpected error when compiling submodule 

Incorporated all review comments and updated the test case.

Change-Id: I03939bfc705cc5319a0b7da3305026b8403b8edc

Original-commit: flang-compiler/f18@a52b0367ea
Reviewed-on: https://github.com/flang-compiler/f18/pull/817
Tree-same-pre-rewrite: false
This commit is contained in:
kiranktp 2019-11-07 15:17:57 +05:30
parent deffc7a55c
commit e572117f8b
2 changed files with 0 additions and 102 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
flang/test/semantics/separate_module_procs_1.f90
View File

@ -1,61 +0,0 @@
! Copyright (c) 2018, NVIDIA CORPORATION. All rights reserved.
!
! Licensed under the Apache License, Version 2.0 (the "License");
! you may not use this file except in compliance with the License.
! You may obtain a copy of the License at
!
! http://www.apache.org/licenses/LICENSE-2.0
!
! Unless required by applicable law or agreed to in writing, software
! distributed under the License is distributed on an "AS IS" BASIS,
! WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
! See the License for the specific language governing permissions and
! limitations under the License.
!DEF: /m1 Module
module m1
!DEF: /m1/ma PUBLIC (Function) Generic
interface ma
!DEF: /m1/ma_create_fun MODULE, PUBLIC (Function) Subprogram INTEGER(4)
!DEF: /m1/ma_create_fun/this ObjectEntity INTEGER(4)
module function ma_create_fun( ) result(this)
!REF: /m1/ma_create_fun/this
integer this
end function
end interface
end module
!REF: /m1
!DEF: /m1/ma_submodule Module
submodule (m1) ma_submodule
contains
!DEF: /m1/ma_submodule/ma_create_fun MODULE, PUBLIC (Function) Subprogram INTEGER(4)
!DEF: /m1/ma_submodule/ma_create_fun/this ObjectEntity INTEGER(4)
module function ma_create_fun() result(this)
!REF: /m1/ma_submodule/ma_create_fun/this
integer this
print *, "Hello"
end function
end submodule
!DEF: /m2 Module
module m2
!DEF: /m2/mb PUBLIC (Subroutine) Generic
interface mb
!DEF: /m2/mb_create_sub MODULE, PUBLIC (Subroutine) Subprogram
module subroutine mb_create_sub
end subroutine mb_create_sub
end interface
end module
!REF: /m2
!DEF: /m2/mb_submodule Module
submodule (m2) mb_submodule
contains
!DEF: /m2/mb_submodule/mb_create_sub MODULE, PUBLIC (Subroutine) Subprogram
module subroutine mb_create_sub
!DEF: /m2/mb_submodule/mb_create_sub/this ObjectEntity INTEGER(4)
integer this
print *, "Hello"
end subroutine mb_create_sub
end submodule

41
flang/test/semantics/separate_module_procs_2.f90
View File

@ -1,41 +0,0 @@
! Copyright (c) 2018, NVIDIA CORPORATION. All rights reserved.
!
! Licensed under the Apache License, Version 2.0 (the "License");
! you may not use this file except in compliance with the License.
! You may obtain a copy of the License at
!
! http://www.apache.org/licenses/LICENSE-2.0
!
! Unless required by applicable law or agreed to in writing, software
! distributed under the License is distributed on an "AS IS" BASIS,
! WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
! See the License for the specific language governing permissions and
! limitations under the License.
module m1
interface ma
end interface
end module
submodule (m1) ma_submodule
contains
!ERROR: 'ma_create_new_fun' was not declared a separate module procedure
module function ma_create_new_fun() result(this)
integer :: this
print *, "Hello"
end function
end submodule
module m2
interface mb
end interface
end module
submodule (m2) mb_submodule
contains
!ERROR: 'mb_create_new_sub' was not declared a separate module procedure
module SUBROUTINE mb_create_new_sub()
integer :: this
print *, "Hello"
end SUBROUTINE mb_create_new_sub
end submodule