view gcc/testsuite/gfortran.dg/io_constraints_18.f90 @ 152:2b5abeee2509

update gcc11
author anatofuz
date Mon, 25 May 2020 07:50:57 +0900
parents
children
line wrap: on
line source

! { dg-options "-fdec" }
! { dg-do compile }
!
! PR fortran/87923
!
program p
   open (1, carriagecontrol=char(1000,4)) ! { dg-error "must be a character string of default kind" }
   open (2, share=char(1000,4)) ! { dg-error "must be a character string of default kind" }
end