comparison gcc/testsuite/gfortran.dg/array_section_3.f90 @ 111:04ced10e8804

gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 ! { dg-do compile }
2 !
3 ! PR fortran/54225
4 !
5 ! Contributed by robb wu
6 !
7 program test
8 implicit none
9 real :: A(2,3)
10
11 print *, A(1, *) ! { dg-error "Expected array subscript" }
12 end program
13
14 subroutine test2
15 integer, dimension(2) :: a
16 a(*) = 1 ! { dg-error "Expected array subscript" }
17 end