1!RUN: not %flang -fsyntax-only %s 2>&1 | FileCheck %s 2subroutine s 3 implicit none 4!CHECK: line-directive.f90:5:3: error: No explicit type declared for 'a' 5 a = 1. 6#line 100 7!CHECK: line-directive.f90:101:3: error: No explicit type declared for 'b' 8 b = 2. 9#line "sourceFile.cobol" 200 10!CHECK: sourceFile.cobol:201:3: error: No explicit type declared for 'c' 11 c = 3. 12# 300 13!CHECK: sourceFile.cobol:301:3: error: No explicit type declared for 'd' 14 d = 4. 15# "/dev/random" 400 16!CHECK: random:401:3: error: No explicit type declared for 'e' 17 e = 5. 18end 19