2 ! { dg-options "-std=f2018" }
4 ! PR 85839: [F2018] warn for obsolescent features
6 ! Contributed by Janus Weil <janus@gcc.gnu.org>
8 block
data ! { dg-warning "obsolescent feature" }
9 common /a
/ y(3) ! { dg-warning "obsolescent feature" }
16 integer :: a(10),b(10),j(8),i
18 common /c
/ x
! { dg-warning "obsolescent feature" }
20 equivalence (a(10),b(1)) ! { dg-warning "obsolescent feature" }
22 do 99 i
=1,10 ! { dg-warning "obsolescent feature" }
25 j
= (/ 0, 1, 2, 3, 4, 0, 6, 7 /)
26 forall (i
=1:8, j(i
) /= 0) ! { dg-warning "obsolescent feature" }