1! { dg-do compile }
2! { dg-options "-std=f2008" }
3!
4! PR fortran/48820
5!
6! Test TYPE(*)
7
8subroutine one(a)
9  type(*)  :: a ! { dg-error "Fortran 2018: Assumed type" }
10end subroutine one
11