Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/submodule_8.f08 @ 127:4c56639505ff
fix function.c and add CbC-example Makefile
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 18:46:58 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } ! ! Checks that F2008:11.2.3 para 2 is correctly implemented so that ! no error results from using 'mod_s' for both a module name and ! a submodule name. The submodule is now identified as 'mod_a.mod_s' ! internally and the submodule file as 'mod_a@mod_s.smod'. ! ! Contributed by Reinhold Bader <reinhold.bader@lrz.de> ! module mod_a implicit none interface module subroutine p() end subroutine end interface end module submodule (mod_a) mod_s implicit none integer :: i=-2 contains module procedure p if (i .ne. -2) then call abort end if end procedure end submodule module mod_s use mod_a implicit none integer :: i=2 end module program a_s use mod_s implicit none if (i==2) then call p() else call abort end if end program