Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/gfortran.dg/pr44735.f90 @ 127:4c56639505ff

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 }

program main
  if (bug() /= "abcdefghij") call abort
contains
  function bug()
    character(len=10) :: bug
    character(len=1), dimension(:), pointer :: p_chars
    allocate(p_chars(10))
    p_chars = ['a','b','c','d','e','f','g','h','i','j']
    forall (i=1:len(bug))
      bug(i:i) = p_chars(i)
    end forall
    deallocate(p_chars)
  end function bug
end program main