diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/coarray/codimension_2a.f90')
-rw-r--r-- | gcc/testsuite/gfortran.dg/coarray/codimension_2a.f90 | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/coarray/codimension_2a.f90 b/gcc/testsuite/gfortran.dg/coarray/codimension_2a.f90 index 8eb472c..3dec4aa 100644 --- a/gcc/testsuite/gfortran.dg/coarray/codimension_2a.f90 +++ b/gcc/testsuite/gfortran.dg/coarray/codimension_2a.f90 @@ -11,6 +11,7 @@ program testmod use global_coarrays implicit none + external ttest integer :: me @@ -21,6 +22,8 @@ program testmod if(me==1) then b(:) = b(:)[2] write(*,*) b + elseif (me == 3) then + call ttest() end if end program testmod |