view gcc/testsuite/gfortran.dg/pr59910.f90 @ 120:f93fa5091070

fix conv1.c
author mir3636
date Thu, 08 Mar 2018 14:53:42 +0900
parents 04ced10e8804
children
line wrap: on
line source

! { dg-do compile }
! PR fortran/59910
!
program main
  implicit none
  type bar
      integer :: limit(1)
  end type
  type (bar) :: testsuite
  data testsuite / bar(reshape(source=[10],shape=[1])) /
end