Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/gfortran.dg/logical_assignment_1.f90 @ 128:fe568345ddd5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix CbC-example
author mir3636
date Wed, 11 Apr 2018 19:32:28 +0900
parents 04ced10e8804
children 1830386684a0
line wrap: on
line source

! { dg-do compile }
! PR 79312 - assigning a logical value to a real
! is invalid.
! Test case by John Harper.
program emptyarray5
  implicit none
  real a(0)
  a = [logical::] ! { dg-error "Can't convert LOGICAL" }
  print *,size(a)
end program emptyarray5