comparison gcc/testsuite/gfortran.dg/associate_2.f95 @ 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 ! { dg-options "-std=f95" }
3
4 ! PR fortran/38936
5 ! Test that F95 rejects ASSOCIATE.
6
7 PROGRAM main
8 IMPLICIT NONE
9
10 ASSOCIATE (a => 5) ! { dg-error "Fortran 2003" }
11 END ASSOCIATE
12 END PROGRAM main