Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pr83149_1.f90 @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! Compiled with pr83149.f90 ! { dg-do run } ! { dg-compile-aux-modules "pr83149.f90" } ! { dg-additional-sources pr83149.f90 } ! ! Contributed by Neil Carlson <neil.n.carlson@gmail.com> ! subroutine sub(s) use mod2 real :: s s = sum(get()) end use mod1 real :: s ncells = 2 call sub (s) if (int (s) .ne. ncells) stop 1 ncells = 10 call sub (s) if (int (s) .ne. ncells) stop 2 end