gcc/testsuite/algol68/compile/error-module-coercions-1.a68


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

{ This test makes sure mode checks are carried
  over the inside of module texts. }
module Foo = def
                skip
             postlude
                int i = "foo"; { dg-error "coerced" }
                skip
             fed,
       Bar = def
                int i = 3.14; { dg-error "coerced" }
                skip
             postlude
                skip
             fed,
       Baz = def skip fed