Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/nested_modules_4.f90 @ 120:f93fa5091070
fix conv1.c
author | mir3636 |
---|---|
date | Thu, 08 Mar 2018 14:53:42 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! { dg-options "-std=legacy" } ! ! Test for the fix to PR24409 - the name clash between the module ! name and the interface formal argument would cause an ICE. ! ! Contributed by Paul Thomas <pault@gcc.gnu.org> ! module string interface function lc(string ) character(len=*), intent(in) :: string character(len=len(string )) :: lc end function lc end interface end module string module serial use string end module serial use serial use string character*15 :: buffer buffer = lc ("Have a Nice DAY") end