comparison gcc/testsuite/gfortran.dg/io_constraints_15.f90 @ 152:2b5abeee2509

update gcc11
author anatofuz
date Mon, 25 May 2020 07:50:57 +0900
parents
children
comparison
equal deleted inserted replaced
145:1830386684a0 152:2b5abeee2509
1 ! { dg-do compile }
2 !
3 ! PR fortran/87923
4 !
5 program p
6 open (1, blank=char(1000,4)) ! { dg-error "must be a character string of default kind" }
7 open (2, decimal=char(1000,4)) ! { dg-error "must be a character string of default kind" }
8 open (3, encoding=char(1000,4)) ! { dg-error "must be a character string of default kind" }
9 open (4, round=char(1000,4)) ! { dg-error "must be a character string of default kind" }
10 open (5, sign=char(1000,4)) ! { dg-error "must be a character string of default kind" }
11 end