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

gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents
children
line wrap: on
line source

! { dg-do compile }
! PR fortran/86110
program p
   character(:), allocatable :: x, y
   x = 'abc'
   y = [x(:)]  ! { dg-error "Incompatible ranks 0 and 1" }
end