comparison gcc/testsuite/gfortran.dg/pr93484_2.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 program p
4 implicit none
5 integer, parameter :: x(4) = [1,2,3,4]
6 print *, [real(x(k))] ! { dg-error "Symbol 'k' at .1. has no IMPLICIT type" }
7 end
8