Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/gfortran.dg/auto_internal_assumed.f90 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
line wrap: on
line source

! { dg-do compile }
! Test fix of PR24705 - ICE on assumed character length
! internal function.
!
character (6) :: c
  c = f1 ()
  if (c .ne. 'abcdef') STOP 1
contains
  function f1 () ! { dg-error "must not be assumed length" }
    character (*) :: f1
    f1 = 'abcdef'
  end function f1
end