summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/pr30667.f
blob: 0f1af29d1f953415d38ca2d9bb71e87169591135 (plain)
1
2
3
4
5
6
7
8
9
10
! { dg-do compile { target i?86-*-* x86_64-*-* } }
! { dg-require-effective-target ilp32 }
! { dg-options "-O2 -msse -ftree-vectorize" }
      subroutine cblank_cvb(a,ndim)
      character*(*) a
      character*1 blank
      data blank/' '/
      do 100 i=1,ndim
100   a(i:i)=blank
      end