blob: 1694871c5f6c545aaa095920419ad9b9abd76e18 (
plain)
1
2
3
4
5
6
7
8
9
|
! { 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
|