comparison gcc/testsuite/gfortran.dg/submodule_20.f08 @ 111:04ced10e8804

gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 ! { dg-do compile }
2 !
3 ! Test the fix for PR77903
4 !
5 ! Contributed by Damian Rouson <damian@sourceryinstitute.org>
6 !
7 module one_module
8 implicit none
9 interface
10 module function one()
11 end function
12 integer module function two()
13 end function
14 end interface
15 end module
16
17 submodule(one_module) one_submodule
18 implicit none
19 contains
20 integer module function one() ! { dg-error "Type mismatch" }
21 one = 1
22 end function
23 integer(8) module function two() ! { dg-error "Type mismatch" }
24 two = 2
25 end function
26 end submodule
27